perm filename POINTY.PHT[PNT,HE]5 blob
sn#554610 filedate 1981-01-06 generic text, type T, neo UTF8
{ WRITTEN BY 5.N .$↑ [$X , *] AT 3:47 30 Aug 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SETSTATUS(PWCODE)
QREAD VISION.AL[PNT,MLG]
EXIT
{exiting at 3:56 30 Aug 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=703}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 3:21 1 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
HELP
SAVECOREIMAGE P0
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 3:23 1 Sept 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
EXIT
{exiting at 3:23 1 Sept 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 16:10 2 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
W←2
NODISPLAY
DISPLAY SCALARS
DISPLAY SCALARS
SHOW VECTORS
DISPLAAY VECTORS
{ continued writing again at 16:29 2 Sept 1980}
EXIT
{exiting at 16:32 2 Sept 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ continued writing again at 15:24 3 Sept 1980}
NODISPLAY
MOVE BARM TO BPARK
MOVE BARM TO BPARK VIA BPARK+(-20,-20,-3)
MOVE BARM TO BPARK VIA BPARK+(-20,-20,-3)
MOVE BARM TO BPARK VIA BPARK+(-20,-20,-3)
EXIT
{exiting at 15:29 3 Sept 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=35}
{ WRITTEN BY PONTY0.DMP[K<-, [] AT 14:54 4 Sept 1980 for ALIAS PPN = HE
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
W←2
SHOW W
DISPLAY SCALARS
SHOW W
N←4
SHOW N
SHOW N
N←3456678
EXIT
{exiting at 14:58 4 Sept 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 12:45 10 Sept 1980 for ALIAS PPN = HE
LOGIN PPN = MSM USERNAME = Shahid}
MOVE BARM TO BPARK
MOVE BARM TO BPARK+7*XHAT WITH DEPARTURE=3*ZHAT
MOVE BARM TO BPARK WITH APPROACH=3*ZHAT
MOVE BARM TO BPARK + 8*XHAT
MOVE BARM TO BPARK
MOVE BARM TO BPARK
SAVECOREIMAGE P
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 12:49 10 Sept 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
W←3
MOVE BARM TO ⊗+4*XHAT
NODISPLAY
MOVE BARM TO ⊗-4*XHAT
REDISPLAY; MOVE BARM TO BPARK+4*XHAT; MOVE BARM TO BPARK;
MOVE BARM TO BPARK+10*XHAT
MOVE BARM TO BPARK
EXIT
{exiting at 13:18 10 Sept 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=39}
{ WRITTEN BY 5.N .$↑ [$X , *] AT 13:55 10 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD RL.PNT
DELETE ALL
READ RL.PNT
DELETE ALL
QREAD PROC.PNT
NODISPLAY
QREAD RL.PNT
SETSTATUS(PWCODE);
QREAD RL.PNT
EXIT
{exiting at 14:09 10 Sept 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=131}
{ continued writing again at 14:21 17 Sept 1980}
W←3;
DEBUGON;
BEGIN W←W+1; PRINT("FOO",CRLF); END;
BEGIN W←W+1; PRINT("FOO",CRLF); PRINT("F001",CRLF); END;
BEGIN W←W+1; PRINT("ABC",CRLF); PRINT("DEF",CRLF); END;
SCALAR I;
FOR I←1 STEP 1 UNTIL 10 DO IF W>10 THEN PRINT("GEE") ELSE PRINT("LEE",CRLF);
MOVE BARM TO BPARK
EXIT
{exiting at 14:31 17 Sept 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=55}
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 2:42 19 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SETSTATUS(PPCODE);
NODISPLAY;
DEFINE FOO(XXX)=⊂ PRINT("XXX = ",XXX);
⊃
FOO(BHAND);
FOO(BARM);
FOO(YARM);
EXIT
{exiting at 2:45 19 Sept 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=23}
{ continued writing again at 14:31 19 Sept 1980}
←BARM
W←BARM
SHOW W
X←YARM
SHOW W,Y
SHOW W,X
SHOW X
EDIT X
EDIT X
EDIT X
EXIT
{exiting at 14:36 19 Sept 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=52}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:23 24 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD RL.PNT
SETSTATUS(PWCODE)
QREAD RL.PNT
EXIT
{exiting at 13:27 24 Sept 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=146}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 16:55 25 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
DISPLAY SCALARS
A←3
B←2;
A←3*4*5;
MOVE BARM TO BPARK
BEGIN A←2; B←3;
END;
A←3
A←3*
2+
3
IF A>3 THEN PRINT("A IS BIGGER THAN 3") ELSE PRINT("A IS SMALLER THAN 3")
BEGIN IF A>3 THEN PRINT("A IS BIGGER THAN 3") ELSE PRINT("A IS SMALLER THAN 3")
BEGIN IF A>3 THEN PRINT("GREATER") ELSE PRINT("LESS THAN");
MOVE BARM TO BPARK;
END;
SCALAR PROCEDURE FIBO(SCALAR I);
IF I=0 OR I=1 THEN RETURN(1) ELSE RETURN(FIBO(I-1)+FIBO(I-2));
DSIPLAY PROCEDURES
DISPLAY PROCEDURES
SHOW FIBO
DEFINE FOO(A,B)=⊂A + B⊃;
DEFINE FOO(A1,B1)=⊂A1+ B1⊃;
SHOW FOO
EDIT FOO
A←FOO(2,3);
DISPLAY VECTORS
V←VECTOR(1,2,3)
BLOCK←BARM
DISPLAY FRAMES
MOVE BARM TO BLOCK
EXIT
{exiting at 17:10 25 Sept 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=146}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 17:18 25 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
EXIT
{exiting at 17:20 25 Sept 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=146}
{ WRITTEN BY 5.N .$↑ [$X , *] AT 13:59 26 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD RL2.PNT
SETSTATUS(PWCODE)
QREAD RL2.PNT
EXIT
{exiting at 14:03 26 Sept 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=183}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 17:11 26 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
BAIL(BREAK("SENSE"););
QREAD RL2.PNT
EXIT
{exiting at 17:12 26 Sept 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=146}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 17:12 26 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
BREAK("MOVE");
BAIL
AREAD RL2.PNT
QREAD RL2.PNT
QREAD RL2.PNT
;
{ WRITTEN BY 5.N .$↑ [$X , *] AT 1:31 29 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD RL2.PNT
SETSTATUS(PWCODE);
QREAD RL2.PNT
EXI
EXIT
{exiting at 1:33 29 Sept 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=183}
{ continued writing again at 13:40 29 Sept 1980}
MOVE BARM TO BPARK
NODISPLAY
DRIVE BJT(1) TO 90
MOVE BARM TO BPARK
DEFINE PARK_BARM=⊂DRIVE BJT(1) TO 180; DRIVE BJT(2) TO -90; DRIVE BJT(3) TO 14;
DRIVE BJT(4) TO -90; DRIVE BJT(5) TO 90; DRIVE BJT(6) TO 0;⊃;
PARK_BARM
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:59 29 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SAVECOREIMAGE P0
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 14:05 29 Sept 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
EXIT
{exiting at 14:07 29 Sept 1980
$FPMAX=0
$INTMAX=5
$PCDMAX=146}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 15:12 29 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
PARK_BARM
REDISPLAY
W←3
EXIT
{exiting at 15:17 29 Sept 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=223}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 15:25 29 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
REDISPLAY
QREAD RL2.PNT
REDISPLAY
MOVE BARM TO BPARK
QREAD MOVARM.AL[DEM,HE]
EXIT
{exiting at 16:19 29 Sept 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=2538}
{ WRITTEN BY 5.N .$↑ [$X , *] AT 16:38 29 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
REDISPLAY
QREAD MOVAR1.A,[PNT,HE]
QREAD MOVAR1.AL[PNT,HE]
MOVAR1[PNT,HE]
QREAD MOVAR1[PNT,HE]
{ WRITTEN BY 5.N .$↑ [$X , *] AT 20:44 29 Sept 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD RL2.PNT
SETSTATUS(PWCODE)
QREAD RL2.PNT
EXIT
{exiting at 20:47 29 Sept 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=223}
{ continued writing again at 14:54 1 Oct 1980}
MOVE BARM TO BPARK
DRIVE BJT(4) TO 200
MOVE BJT(4) TO -90
DRIVE BJT(4) TO -90
DRIVE BJT(4) TO -90
DRIVE BJT(4) TO -90
MOVE BARM TO BPAR
MOVE BARM TO BPARK
ASSEMBLE_FLASHLIGHT(1)
{ continued writing again at 15:18 1 Oct 1980}
QREAD FLASH.PN2
QREAD FLASH.PN2[THE,MSM]
DELETE ALL
SETSTATUS(NOELF)
{ continued writing again at 16:13 1 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
DELETE ALL
QREAD FLASH.PN2[THE,MSM]
DELETE ALL
QREAD FLASH.PN2[THE,MSM]
{ continued writing again at 16:29 1 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
DELETE ALL
DELETE ALL
QREAD FLASH.PN2[THE,MSM]
DELETE ALL
{ continued writing again at 16:39 1 Oct 1980}
QREAD FLASH.PN2[TMP,MSM]
QREAD FLASH.PNT[THE,MSM]
DELETE ALL
NODISPLAY
QREAD FLASH.PN2[THE,MSM
{ continued writing again at 16:48 1 Oct 1980}
QREAD FLASH.PN2[TMP,MSM]
QREAD FLASH.PN2[THE,MSM]
QREAD FLASH.PN2[THE,MSM]
DELETE ALL
QREAD FLASH.PN2[THE,MSM
{ continued writing again at 14:48 6 Oct 1980}
MOVE BARM TO BPARK
MOVE BARM TO BPARK
NODISPLAY
MOVE BARM TO BPARK
DRIVE BJT(1) TO 90
VT05_OFFY
VT05_OFFY
{ continued writing again at 15:32 6 Oct 1980}
MOVE BARM TO BPARK
DRIVE BJT(1) TO 180
DRIVE BJT(1) TO 90
DRIVE BJT(1) TO 180
DRIVE BJT(3) TO 24
MOVE BARM TO BPARK
MOVE BARM TO BPARK-6*YHAT
MOVE BARM TO BPARK
MOVE BARM TO BPARK
MOVE BARM TO BPARK
MOVE BARM TO BPARK
{ continued writing again at 15:39 6 Oct 1980}
MOVE BARM TO BPARK
DRIVE BJT(1) TO 180
DRIVE BJT(2) TO -80
DRIVE BJT(1) TO 180
{ continued writing again at 16:08 6 Oct 1980}
MOVE BARM TO BPARK
MOVE BARM TO BPARK
DRIVE BJT(1) TO 90
DRIVE BJT(1) TO 90
{ continued writing again at 15:16 7 Oct 1980}
MOVE BARM TO BPARK
EXIT
{exiting at 15:21 7 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=39}
{ continued writing again at 12:26 8 Oct 1980}
MOVE BARM TO BPARK
TXYZ←NILTRANS+2*ZHAT
PUT_REFLECTOR
PUT_REFLECTOR
PUT_REFLECTOR
PUT_REFLECTOR
MOVE BARM TO BPARK
PUT_REFLECTOR
PICK(REF,.625)
OPEN BHAND TO 1
MOVE BARM TO REF
MOVEX BARM BY .2
MOVEX BARM BY .2
MOVEX BARM BY -.1
MOVE BARM TO BARM#2*XHAT
MOVE BARM TO REF+.3*XHAT
REF←REF+3*XHAT
MOVE BARM TO REF#(-2.XHAT)
MOVE BARM TO REF#(-.2*XHAT)
MOVE BARM TO REF
MOVE BARM TO REF
REF←REF-2.7*XHAT
MOVE BARM TO REF
MOVE BARM TO REF
MOVE BARM TO REF-.2*XHAT
MOVE BARM TO REF-.1*XHAT
REF←REF-.1*XHAT
MOVE BARM TO REF#(-.1*XHAT)
MOVE BARM TO REF#(-.1*XHAT)
MOVE BARM TO REF#(-.2*XHAT)
MOVE BARM TO REF#(-.3*XHAT)
MOVE BARM TO REF#(-.4*XHAT)
REF←REF#(-.4*XHAT)
REF←REF#.1*ZHAT
MOVEZ BY 3
PICK(REF,.625)
WRITE REF INTO FLASH2.DAT[TMP,MSM]
GUIDED_INSERT(REFF)
MOVE BARM TO REFF
REFF←REFF+.2*XHAT
PICK(REF,.625)
GUIDEF_INSERT(REFF)
GUIDED_INSERT(REFF)
PUT_REFLECTOR;
PUT_REFLECTOR;
PUT_REFLECTOR;
WRITE REFF
MOVE BARM TO BULB[1]
MOVE BARM TO BULB[2]
MOVE BARM TO BULB[1]
MOVE BARM TO BULB[1]#.2*YHAT
MOVE BARM TO BULB[1]#.1*YHAT
MOVE BARM TO BULB[1]#.3*YHAT
MOVE BARM TO BULB[1]#.3*YHAT#.2*XHAT
MOVE BARM TO BULB[1]#.3*YHAT#1*XHAT
MOVE BARM TO BULB[1]#.3*YHAT#(-.2*XHAT)
BULB[1]←BULB[1]#.3*YHAT#(-.2*XHAT)
MOVE BARM TO BULB[1]
MOVEZ BY 4
PICK(BULB[1],.3)
PICK(BULB[1],.3)
PICK(BULB[1],.3)
PICK(BULB[1],.3)
BULB[1]←BULB[1]-.1*ZHAT
PICK(BULB[1],.3)
MOVE BARM TO BULBF
BULBF←REFF
EDIT BULBF
MOVE BARM TO BULBF
MOVE BARM TO BULBF
BULBF←BULBF-.2*YHAT
MOVE BARM TO BULBF
MOVE BARM TO BULBF-.1*YHAT
BULBF←BULBF-.1*YHAT
RELEASE
PUT_REFLECTOR
PUT_BULB(1)
PUT_BULB(1)
PUT_BULB(1)
BULBF←BULBF-.1*ZHAT
PUT_BULB(1)
WRITE BULBF
PUT_REFLECTOR;
PUT_BULB(1)
MOVE BARM TO BULB[2]
MOVE BARM TO BULB[2]#.2*XHAT
MOVE BARM TO BULB[2]#.2*XHAT
MOVE BARM TO BULB[3]#.2*XHAT
MOVE BARM TO BULB[2]#.3*XHAT
MOVE BARM TO BULB[2]#1*XHAT
MOVE BARM TO BULB[2]#.2*YHAT
MOVE BARM TO BULB[2]#.1*YHAT
MOVE BARM TO BULB[2]#.1*YHAT#(-.1*XHAT)
MOVE BARM TO BULB[2]#.3*YHAT#(-.1*XHAT)
BULB[2]←BULB[2]#.3*YHAT#(-.1*XHAT)
BULB[2]←BULB[2]#(-.1*XHAT)
MOVE BARM TO BULB[2]
PUT_BLUB(2)
PUT_BULB(2)
PUT_BULB(2)
WRITE BULB[1]
BULB1←BULB[1]
WRITE BULB1
BULB2←BULB[2]
WRITE BULB2
MOVE BARM TO BULB[3]
MOVE BARM TO BULB[3]#.3*YHAT#(-.2*XHAT)
MOVE BARM TO BULB[3]#.5*YHAT#(-.2*XHAT)
BULB[3]←BULB[3]#.5*YHAT#(-.2*XHAT)
PUT_BULB(3)
PUT_BULB(3)
BULB[3]←BULB-.1*ZHAT
BULB[3]←BULB[3]-.1*ZHAT
PUT_BULB(3)
PUT_BULB(3)
BULB3←BULB[3]
WRITE BULB3
MOVE BARM TO BULB[4]
MOVE BARM TO BULB[4]#.3*YHAT#(.2*XHAT)
MOVE BARM TO BULB[4]#.3*YHAT#(-.2*XHAT)
BULB[4]←BULB[4]#.3*YHAT#(-.2*XHAT)
PUT_BULB(4)
PUT_BULB(4)
BULB4←BULB[4]
WRITE BULB4
PICK(BRET,.5)
MOVE BARM TO BRET:
MOVE BARM TO BRET
MOVEZ BY 2
OPEN BHAND TO 1
MOVE BARM TO BRET
MOVEZ BY 2; OPEN BHAND TO 2; MOVE BARM TO BRET#(-.2*YHAT)
MOVEZ BY 2; OPEN BHAND TO 3; MOVE BARM TO BRET#(-.2*YHAT)
MOVEB BARM TO BRET#.5*XHAT
MOVE BARM TO BRET#.3*YHAT
MOVE BARM TO BRET#.5*YHAT
MOVE BARM TO BRET#.7*YHAT
CLOSE BHAND TO 1
MOVE BARM TO BRET#.9*YHAT
MOVE BARM TO BRET#.9*YHAT#(-.2*XHAT)
MOVE BARM TO BRET#.9*YHAT#(-.25*XHAT)
MOVE BARM TO BRET#.9*YHAT#(-.25*XHAT)#.1*ZHAT
B←BRET
MOVE BARM TO BARM#(-3*ZHAT)
PICK(B,.6)
B←BRET#.9*YHAT#(-.25*XHAT)#.1*ZHAT
MOVEZ BY 3
PICK(B,.6)
BRET←B
WRITE BRET
OPEN BHAND T 2
OPEN BHAND TO 2
PUT_BULB_RETAINER
SHOW BRETF
SHOW BULBF
SHOW BULBF,BRETF
B←BRETF
EDIT BRETF
MOVE BARM TO BRETF
PUT_BULB_RETAINER
PUT_BULB_RETAINER
BRETF←BRETF-.2*ZHAT
PUT_BULB_RETAINER
PUT_BULB_RETAINER
WRITE BRETF
PICK_PLACE_DRIVER
;
PICK_AND_PLACE_DRIVER
(SCR,SCRF)
PICK(SCR,1)
MOVE BARM TO SCR
MOVE BARM TO SCR-.4*YHAT
MOVE BARM TO SCR-.4*YHAT+.2*XHAT
MOVE BARM TO SCR-1*YHAT+.2*XHAT
SHOW SCR
SCR←SCR-YHAT+.2*XHAT
MOVEZ BY 3
PICK(SCR,2)
PICK(SCR,2)
MOVEZ BY 3
PICK_AND_PLACE_DRIVER(SCR,SCRF)
SCRF←SCRF+.3*XHAT
MOVE BARM TO SCRF
MOVE BARM TO SCRF-.2*XHAT
SCRF←SCRF-.2*XHAT
SHOW SCRF
{ continued writing again at 14:59 8 Oct 1980}
QREAD FLASH2.DAT[TMP,MSM]
PUT_REFLECTOR
PUT_BULB(1)
PUT_BULB_RETAINER
{ continued writing again at 15:53 8 Oct 1980}
QREAD FLASH2.DAT[TMP
QREAD FLASH2.DAT[TMP,MSM]
PUT_REFLECTOR
PUT_BULB(1)
PUT_BULB_RETAINER
PUT_AND_PLACE_DRIVER
;
PICK_AND_PLACE_DRIVER(SCR,SCRF)
SETSTIFF0(70,70,40,10000,10000,500,NILTRANS+2*ZHAT)
SCRF←SCRF+.1*XHAT
MOVE BARM TO SCRF
MOVE BARM TO SCRF
MOVE BARM TO SCRF+.1*XHAT
SCRF←SCRF+.1*XHAT
QREAD FOO.PNT[1,MSM]
SCRF←SCRF-.4*YHAT
SCREW_BULB_RETAINER
WRITE SCRF INTO FLASH2.DAT[TMP,MSM]
OPERATE DRIVER WITH DURATION=3
OPERATE SCREWER_DRIVER WITH DURATION=3
PUT_RETAINER
PUT_LENS
PUT_REFLECTOR
{ continued writing again at 16:31 8 Oct 1980}
DDT
PUT_REFLECTOR
DRIVE BJT(1) TO 90
{ continued writing again at 12:31 9 Oct 1980}
EXIT
{exiting at 12:33 9 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=386}
{ continued writing again at 13:15 10 Oct 1980}
DDT
MOVE BARM TO BPARK
DRIVE BJT(1) TO 90
{ continued writing again at 13:21 10 Oct 1980}
QREAD FLASH2.DAT[TMP,MSM]
QREAD FLASH2.DAT[TMP,MSM]
MOVE BARM TO BPARK
PUT_REFLECTOR
{ continued writing again at 13:55 10 Oct 1980}
MOVEZ BARM BY 3
QREAD FLASH2.DAT[TMP,MSM]
PUT_REFLECTOR
REFF←REFF-.2*YHAT
{ continued writing again at 14:32 10 Oct 1980}
QREAD FLASH2.DAT[TMP,MSM]
TXYZ←NILTRANS+2*ZHAT
REFF←REFF-.2*YHAT
PUT_REFLECTOR
PUT_BULB(1)
PUT_BULB_RETAINER
SCREW_BULB_RETAINER
PUT_RETAINER
PUT_LENS
PUT_REFLECTOR_ASSEMBLY
MOVE BARM TO BPARK
{ continued writing again at 12:04 12 Oct 1980}
DDT
MOV BARM TO BPARK
MOVE BARM TO BPARK
RESUME_MESSAGE("NEW CALIBRATION COEFFICIENTS FOR JOINT 1");
SAVECOREIMAGE P1[TMP,MSM]
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 12:13 12 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
QREAD SPRIN6.PNT[TMP,MSM]
MOVE BARM TO PICK2 WITH DURATION=3
MOVE BARM TO PICK2 WITH DURATION=1
MOVE BARM VIA PICK1 TO PICK2 DIRECTLY WITH DURATION=3
MOVE BARM VIA PICK1 TO PICK2+.3*XHAT DIRECTLY WITH DURATION=3
MOVE BARM VIA PICK1 TO (PICK2+.3*XHAT)#.2*XHAT DIRECTLY WITH DURATION=3
MOVE BARM VIA PICK1 TO (PICK2+.4*XHAT)#.2*XHAT#.1*ZHAT DIRECTLY WITH DURATION=3
MOVE BARM VIA PICK1 TO (PICK2+.35*XHAT)#.2*XHAT#.1*ZHAT DIRECTLY WITH DURATION=3
PICK2←(PICK2+.35*XHAT)#.2*XHAT#.1*ZHAT
PICK1←PICK2#(-1.5*ZHAT)
MOVE BARM VIA PICK1 TO PICK2 WITH DURATION=3
WRITE PICK2 INTO SPRIN6.PNT
MOVE BARM TO PICK2 - 1.5*ZHAT WRT PICK2
P2←PICK2
DISPLAY FRAMES
EDIT P2
{ continued writing again at 14:15 12 Oct 1980}
QREAD SPRIN6.PNT
MOVE BARM VIA PICK1 TO PICK2
NODISPLAY
CENTER BARM
MOVE BARM TO PLACE1
MOVE BARM TO PLACE2
MOVE BARM TO PLACE2-.2*XHAT
MOVE BARM TO PLACE2-.3*XHAT
PLACE2←PLACE2-.3*XHAT
MOVE BARM TO PLACE2 VIA PLACE1
MOVE BARM TO PLACE2 VIA PLACE1
MOVE BARM TO STEM_TOUCH WITH DURATION=2
MOVE BARM TO STEM_TOUCH#.5*XHAT WITH DURATION=2
MOVE BARM TO STEM_TOUCH#.4*XHAT WITH DURATION=2
MOVE BARM TO STEM_TOUCH#.4*XHAT#.2*YHAT WITH DURATION=2
STEM_TOUCH←STEM_TOUCH#.4*XHAT#.2*YHAT
WRITE STEM_TOUCH INTO SPRIN6
EDIT STEM_TOUCH
MOVE BARM TO STEM_TOUCH
MOVE BARM TO STEM_FINAL
MOVE BARM TO (STEM_FINAL#.4*XHAT)#(-.4*YHAT)
MOVE BARM TO (STEM_FINAL#.4*XHAT)
STEM_FINAL←(STEM_FINAL#.4*XHAT)
WRITE STEM_FINAL INTO SPRIN6.PNT
VAL("EX BODY2")
VAL("EX STEM2A")
MOVE BARM TO STEM_PICKUP-3*XHAT
SPEED_FACTOR←4; MOVE BARM TO STEM_PICKUP-2*XHAT
MOVE BARM TO STEM_PICKUP-XHAT
MOVE BARM TO STEM_PICKUP
SHOW STEM_PICKUP
EDIT STEM_PICKUP
MOVE BARM TO STEM_PICKUP
MOVE BARM TO STEM_PICKUP#.2*XHAT
MOVE BARM TO STEM_PICKUP#.2*XHAT
MOVE BARM TO STEM_PICKUP#.3*XHAT
STEM_PICKUP←STEM_PICKUP#.3*XHAT
MOVE BARM TO PLACE2
MOVE BARM VIA PLACE2-3*XHAT,STEM_PICKUP+3*YHAT,STEM_PICKUP
WRITE STEM_PICKUP INTO SPRIN6.PNT
MOVE BARM VIA PLACE2-3*XHAT,STEM_PICKUP+3*YHAT TO STEM_PICKUP
DEFINE F1=⊂MOVE BARM VIA PLACE2-3*XHAT,STEM_PICKUP+3*YHAT TO STEM_PICKUP⊃
{ continued writing again at 15:35 12 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
SAVECOREIMAGE F0
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 15:45 12 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
RESUME_MESSAGE("PROGRAM FLASH.PN2[THE,MSM]");
SAVECOREIMAGE F0
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 15:46 12 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
TXYZ←NILTRANS+2*ZHAT
PICK(REF,.625)
MOVE BARM TO BPARK
MOVE BARM TO START
PICK(REF,.625)
OPEN BHAND TO 1.5
MOVE BARM TO REF
REF0←BARM
MOVE BARM TO REF0+3*ZHAT,REF0
MOVE BARM TO REF0
SPEED_FACTOR←4; MOVE BARM TO REF0 VIA REF0+3*ZHAT
MOVE BARM TO REF0+3*ZHAT
PICK(REF0,.625)
REF←REF0
WRITE REF INTO FLASH3.DAT
GUIDED_INSERT(REFF)
MOVE BARM TO REFF-2*YHAT
MOVE BARM TO REFF-2*YHAT+.5*ZHAT
MOVE BARM TO REFF-2*YHAT+.5*ZHAT-.3*XHAT
REF←REFF-2*YHAT+.5*ZHAT-.3*XHAT
GUIDED_INSERT(REF)
SHOW GX,GY,GZ,KX,KY,KZ
GX←200;GY←200,GZ←200
GX←200;GY←200;GZ←200
KX←40;KY←20;KZ←40;
SPEED_FACTOR←6;
GUIDED_INSERT(REF)
QREAD FOO.PNT
GG(REF)
MOVE BARM TO REF
REFF←REF
QREAD FLASH3.DAT
REFF←BARM
GG(REFF);
GG(REFF);
SETBASE
GG(REFF);
GG(REFF);
GG(REFF);
QREAD FOO2.PNT
EDIT FOO
EDIT FOO
FOO(REFF)
FOO(REFF)
OPEN BHAND TO 3
MOVE BARM TO START
{ continued writing again at 16:15 12 Oct 1980}
QREAD FLASH3.DAT
QREAD FOO.PNT
QREAD FOO2.PNT
KX←40;KY←20;KZ←40;GX←200;GY←200;GZ←200;
PICK(REF,.625)
GG(REFF)
EDIT FOO
PRINT(TXYZ)
FOO(REFF)
FOO(REFF)
EDIT FOO
FOO(REFF)
EDIT FOO
FOO(REFF)
EDIT
EDIT
FOO(REFF)
GATHER(FY,FZ)
FOO(REFF)
{ continued writing again at 16:27 12 Oct 1980}
QREAD FLASH3.DAT
QREAD FOO.PNT
PICK(REF,.625)
GG(REFF)
SPEED_FACTOR←4
EDIT FOO
EDIT GG
GG(REFF)
GG(REFF)
EDIT
EDIT
GG(REFF)
MOVE BARM TO BARM+4*ZHAT
GG(REFF)
MOVE BARM TO ⊗ WITH DURATION=10 ON FORCE(ZHAT)>10 DO PRINT("OUCH");
MOVE BARM TO ⊗ WITH DURATION=4 ON FORCE(ZHAT)>40 DO PRINT("OUCH");
MOVE BARM TO ⊗ WITH DURATION=4 ON FORCE(ZHAT)>40 DO PRINT("OUCHIE");
MOVE BARM TO ⊗ WITH DURATION=4 ON FORCE(ZHAT)>40 DO PRINT("OUCHIE");
MOVE BARM TO ⊗ WITH DURATION=4 ON |FORCE(ZHAT)|>40 DO PRINT("OUCHIE");
MOVE BARM TO ⊗ WITH DURATION=4 ON |FORCE(ZHAT)|>40 DO PRINT("TRIGGE");
EDIT GG
GG(REFF)
MOVE BARM TO BARM+6*ZHAT
GG(REFF)
WRITE GG INTO FLASH3.DAT
OPEN BHAND TO 3
PICK(REF,.625)
GG(REFF)
OPEN BHAND TO 3
PICK(REF,.625)
GG(REFF)
PICK(REF,.625)
GG(REFF)
PICK(BULB,.3)
PICK(BULB[1],.3)
MOVE BARM TO BULB[1]
B←BULB[1]#(-.15*XHAT)
B←BARM#(-.15*XHAT)
MOVE BARM TO B
B←B#(.1*XHAT)
MOVE BARM TO B
B←B#(-.2*XHAT)
MOVE BARM TO B
PICK(B,.2)
B←B-.1*ZHAT
PICK(B,2)
RELEASE; PICK(B,.2)
PICK(B,.25)
B←B-.1*ZHAT
PICK(B,.2)
MOVE BARM TO BULBF+ZHAT
MOVE BARM TO REFF+2*ZHAT
MOVE BARM TO REFF+ZHAT
PICK_AND_PLACE(B,.4,REFF+ZHAT)
RELEASE
WRITE B INTO FLASH3.PNT
MOVE BARM TO B
MOVE BARM TO B
MOVE BARM TO B#(-1.5*YHAT)
MOVE BARM TO B#(-1.5*YHAT)#(-.1*XHAT)
MOVE BARM TO B#(-1.5*YHAT)#(-.1*XHAT)
{ continued writing again at 21:22 12 Oct 1980}
EXIT
{exiting at 21:22 12 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=39}
{ continued writing again at 10:31 13 Oct 1980}
QREAD FLASH3.DAT
READ FOO.PNT[1,MSM]
SHOW BULB[1]
SHOW BULB[1]
A←BARM
A1←BARM
A2←BARM
MOVE BARM TO A VIA A1,A2
MOVE BARM TO A VIA A1,A2
MOVE BARM TO A VIA A1,A2
MOVE BARM TO A VIA A1,A2
MOVE BARM TO A VIA A1,A2
MOVE BARM TO A VIA A1,A2
MOVE BARM TO A VIA A1,A2
MOVE BARM TO A VIA A1,A2
MOVE BARM TO A VIA A1,A2
MOVE BARM TO A VIA A2,A1
MOVE BARM TO A VIA A2,A1
PICK_AND_PLACE(BULB[1],.4,BULBF)
{ continued writing again at 10:52 13 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
PIC_AND_PLACE(BULB[1],.3,BULBF)
PICK_AND_PLACE(BULB[1],.3,BULBF)
PICK_AND_PLACE(BULB[1],.3,BULBF)
SPEED_FACTOR←4
RELEASE
PICK(BULB[1],.3)
PICK(BULB[1],.3)
PICK_AND_PLACE(BULB[1],.3,BULBF)
RELEASE
PUT_BULB(2)
MOVE BARM TO BULB[1]
MOVE BARM TO BULB[1]
MOVE BARM TO BULB[1]
MOVE BARM TO BULB[1]#(-1.5*YHAT)
MOVE BARM TO BULB[1]#(-1.5*YHAT)#(-.1*XHAT)
PICK(BULB[1]#(-1.5*YHAT)#(-.1*XHAT),.3)
MOVE BARM TO BULB[1]#(-1.5*YHAT)#(-1.5*XHAT)
MOVE BARM TO BULB[1]#(-1.5*YHAT)#(-1.3*XHAT)
MOVE BARM TO BULB[1]#(-1.6*YHAT)#(-1.4*XHAT)
PICK_AND_PLACE(BULB[1]#(-1.6*YHAT)#(-1.4*XHAT),.3,BULBF)
PICK(BULB[1]#(-1.6*YHAT)#(-1.4*XHAT),.3)
MOVE BARM TO BULB[1]#(-1.6*YHAT)#(-1.4*XHAT)
MOVE BARM TO BULB[1]#(-1.6*YHAT)#(-1.25*XHAT)
MOVE BARM TO BULB[1]#(-1.6*YHAT)#(-1.3*XHAT)
PICK_AND_PLACE(BULB[1]#(-1.6*YHAT)#(-1.3*XHAT),.3,BULBF)
BULB[4]←BULB[1]#(-1.6*YHAT)#(-1.3*XHAT)
PICK_AND_PLACE(BULB[4],.3,BULBF)
PUT_BULB(4)
BULB[3]←BULB[1]#(-1.5*XHAT)
MOVE BARM TO BULB[3]
MOVE BARM TO BULB[1]#(-1.4*XHAT)
PICK(BULB[1]#(-1.4*XHAT),.3)
PICK(BULB[1]#(-1.3*XHAT),.3)
PICK(BULB[1]#(-1.3*XHAT),.3)
PICK(BULB[1]#(-1.2*XHAT),.3)
BULB[3]←BULB[1]#(-1.2*XHAT)
PUT_BULB(3)
MOVE BARM TO BULBF
MOVE BARM TO BRETF
MOVE BARM TO BRET
MOVE BARM TO BRET#(-.5*XHAT)
MOVE BARM TO BRET#(-.1*XHAT)
MOVE BARM TO BRET#(-.4*XHAT)
BR←BARM
MOVE BARM TO BR
SHOW BR, BRET
EDIT BR
MOVE BARM TO BR
EDIT BR
MOVE BARM TO BR
BR←BARM
MOVE BARM TO BR
MOVE BARM TO BR
PICK(BR,.6)
PICK(BR,.6)
PICK(BR,.6)
PICK(BR#(.1*XHAT),.6)
PICK(BR#(.1*XHAT),.6)
BRET←BR#(.1*XHAT)
WRITE BRET INTO FLASH.PN2[THE,MSM]
MOVE BARM TO BRETF
MOVE BARM TO REFF
BRF←REFF+.4*ZHAT
MOVE BARM TO BRF
MOVE BARM TO REFF
MOVE BARM TO REFF+.4*ZHAT
MOVE BARM TO REFF+3*ZHAT
SHOW REFF
MOVE BARM TO REFF
MOVE BARM TO REFF+.4*ZHAT
MOVE BARM TO BULBF
MOVE BARM TO BULBF-.6*ZHAT
SHOW REFF,BULBF
MOVE BARM TO REFF+.4*ZHAT
KX←40; KY←20;KZ←40;GX←200;GY←400;GZ←200
BRETF←REFF+.4*ZHAT
PUT_BULB_RETAINER
DRIVE BJT(5) TO 75
DRIVE BJT(5) TO 0
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
KY←30;KZ←50
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
SHOW KX,KY,KZ,GX,GY,GZ
MOVE BARM TO SCR
MOVE BARM TO SCR+ZHAT
MOVE BARM TO SCR+2*ZHAT
SHOW SCR
SCR←BARM
SCRF←BARM
SHOW SCR
SHOW SRC,SCRF
SHOW SRC,SCRF
SHOW SCR,SCRF
SCRF←BARM
EDIT SCRF
EDIT SCRF
MOVE BARM TO SCRF
MOVE BARM TO SCRF+ZHAT
EDIT SCR
EDIT SCR
PICK_AND_PLACE(SCR,SCRF+ZHAT)
FRAME SCRF0; SCRF0←SCRF+ZHAT; PICK_AND_PLACE(SCR,SCRF0)
PICK_AND_PLACE_DRIVER(SCR,SCRF)
QREAD FOO.PNT[1,MSM]
SHOW PPD
EDIT PPD
PPD
PPD(SCR,SCRF)
PPD(SCR,SCRF+.75*ZHAT-.4*XHAT)
PPD(SCR,(SCRF+.75*ZHAT-.4*XHAT))
PPD(SCR,⊂(SCRF+.75*ZHAT-.4*XHAT)⊃)
PPD(SCR,⊂(SCRF+.5*ZHAT-.2*XHAT)⊃)
PPD(SCR,⊂(SCRF+.5*ZHAT-.2*XHAT)⊃)
EDIT PPD
EDIT
PPD(SCR,⊂(SCRF+(-.2,0,.5))⊃)
PPD(SCR,⊂(SCRF+(-.2,0,.5))⊃)
PPD(SCR,⊂(SCRF+(-.2,0,.7))⊃)
EDIT PPD
EDIT
PPD(SCR,⊂(SCRF+(-.2,0,.7))⊃);
PPD(SCR,⊂(SCRF+(-.2,0,.7))⊃);
WRITE PPD INTO FLASH.PN2[THE,MSM]
QREAD FOO.PNT[1,MSM]
SHOW SBR
SBR
SHOW SBR
EDIT SBR
SBR
OPERATE DRIVER WITH DURATION=2 WITH TORQUE=20
SBR
WRITE SBR INTO FLASH.PN2[THE,MSM]
WRITE SCR,SCRF INTO FLASH.PN2[THE,MSM]
PICK(RRET,.05)
GUIDED_INSERT(RRETF)
MOVE BARM TO RRETF
SAVECOREIMAGE F2
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 12:40 13 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
EXIT
{exiting at 12:41 13 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=396}
{ continued writing again at 15:03 13 Oct 1980}
PICCK(RRET,.05)
PICK(RRET,.05)
RELEASE
MOVE BARM TO RRET
MOVE BARM TO RRET#.4*YHAT
MOVE BARM TO RRET#(-.4*YHAT)
MOVE BARM TO RRET#(-.4*YHAT)#(.2*XHAT)
MOVE BARM TO RRET#(-.4*YHAT)#(-.2*XHAT)
MOVE BARM TO RRET#(-.4*YHAT)#(-.3*XHAT)
MOVE BARM TO RRET#(-.4*YHAT)#(-.4*XHAT)
MOVE BARM TO RRET#(-.5*YHAT)#(-.4*XHAT)
MOVE BARM TO RRET#(-.3*YHAT)#(-.4*XHAT)
MOVE BARM TO RRET#(-.4,-.3,0)
RRET←RRET#(-.4,-.3,0)
SHOW RRET
WRITE RRET INTO FLASH.PN2[THE,MSM]
RELEASE
PICK(RRET,.05)
PICK(RRET,.05)
RRET←RRET#(.1*ZHAT)
PICK(RRET,.05)
GUIDED_INSERT(RRETF)
SHOW RRET,RRETF,BARM
MOVEZ BARM BY 3
GUIDED_INSERT(RRETF)
MOVEZ BY 3
MOVEZ BARM BY 3
GUIDED_INSER(RRETF)
GUIDED_INSERT(RRETF)
MOVEZ BARM BY 3
MOVE BARM TO RRETF
MOVE BARM TO BARM+3*ZHAT
MOVE BARM TO RRETF
MOVE BARM TO RRETF#(.3*YHAT)
MOVE BARM TO BARM + 3*ZHAT
MOVE BARM TO RRETF#(-.3*YHAT)
MOVE BARM VIA BARM+3*ZHAT TO RRETF#(.3*YHAT)
MOVE BARM VIA BARM+3*ZHAT TO RRETF#(.2*YHAT)
RRETF←RRETF#(.2*YHAT)
PUT_RETAINER
PUT_RETAINER
WRITE RRETF INTO FLASH.PN2[THE,MSM]
WRITE RRETF INTO FLASH.PN2[THE,MSM]
PICK(RRET,.05)
GUIDED_INSERT(RRETF)
GUIDED_INSERT(RRETF)
SHOW GUIDED_INSERT
SHOW GUIDED_INSRT0
GUIDED_INSRT0(RRETF)
SHOW GG
QREAD FOO.PNT
SHOW GG
GG(RRETF)
EDIT GG
GG(RRETF)
EDIT
GG(RRETF)
EDIT
GG(RRETF)
EXIT
{exiting at 15:30 13 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=396}
{ continued writing again at 15:30 13 Oct 1980}
SAVECOREIMAGE F2
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 15:31 13 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
EXIT
{exiting at 15:31 13 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=396}
{ continued writing again at 22:02 13 Oct 1980}
PICK(RREF,.05)
PICK(RRET,.05)
EDIT GG
EDIT
GG(RRETF)
;
;
;
;
END;
EDIT
DDT
GG(RRETF)
EDIT
GG(RRETF)
MOVE BARM TO BARM WITH DURATION=5 ON FORCE(ZHAT)>20 DO STOP BARM
SETSTATUS(PPCODE);MOVE BARM TO BARM WITH DURATION=5 ON FORCE(ZHAT)>20 DO STOP BARM
MOVE BARM TO BARM WITH DURATION=5 ON FORCE(ZHAT)>20.0 DO STOP BARM
MOVE BARM TO BARM WITH DURATION=5 ON FORCE(ZHAT)>20.0 DO STOP BARM
MOVE BARM TO BARM ON FORCE(ZHAT)>23.0 DO STOP BARM
DDT; MOVE BARM TO BARM ON FORCE(ZHAT)>23.0 DO STOP BARM
SETSTATUS(PWCODE); MOVE BARM TO BARM ON FORCE(ZHAT)>23.0 DO STOP BARM
MOVE BARM TO BARM ON FORCE(ZHAT)>23.0 DO STOP BARM
MOVE BARM TO BARM ON FORCE(ZHAT)>41.0 DO STOP BARM
MOVE BARM TO BARM WITH DURATION = 5 ON FORCE(ZHAT)>41.0 DO STOP BARM
RESETSTATUS(PWCODE)
RESETSTATUS(PPCODE)
GG(RRETF)
PICK(RRET,.05)
GG(RRETF)
MOVE BARM TO RRETF
PICK(RRET,.05)
GG(⊂(RRETF - .5*ZHAT)⊃);
PICK(RRET,.05)
GG(⊂(RRETF -.5*ZHAT)⊃);
RRETF←RRETF-.5*ZHAT
WRITE RRETF INTO FLASH.PN2[THE,MSM]
PUT_RETAINER
PICK(LENS,.1)
MOVE BARM TO LENS
SHOW LENS
L←BARM
L←BARM
SHOW L
SHOW L,LENS
MOVE BARM TO FRAME(ORIENT(L)*ROT(XHAT,4),POS(L))
L←BARM
PICK(L,.1)
PICK(L,.2)
PICK_AND_PLACE(L,.2,LENSF)
DROP
REACH(BARM+2*XHAT)
LENS←L
PUT_LENS
WRITE LENS INTO FLASH.PN2[THE,MSM]
WRITE GG INTO FLASH.PN2[THE,MSM]
EXIT
{exiting at 23:14 13 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=396}
{ continued writing again at 23:14 13 Oct 1980}
DDT
QREAD FLASH.PN2[THE,MSM]
SAVECOREIMAGE F3
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 23:22 13 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
PUT_LENS
PUT_LENS
MOVE BARM TO REFA
NODISPLAY
MOVE BARM TO REFA-.4*ZHAT
SHOW REFA
SHOW REFA,BRETF
MOVE BARM TO BRETF
PICK(BRETF,.6)
PICK(BRETF-.2*ZHAT,.6)
REFA←BRETF-.2*ZHAT
QREAD FOO.PNT
SHOW PRA
MOVE BARM TO REFAF+3*ZHAT
MOVE BARM TO REFAF+ZHAT
MOVE BARM TO REFAF+ZHAT+.2*YHAT-.1*XHAT
MOVE BARM TO REFAF+ZHAT+.2*YHAT+.1*XHAT
MOVE BARM TO REFAF+ZHAT+.3*YHAT-.4*XHAT
MOVE BARM TO REFAF+ZHAT+.2*YHAT-.2*XHAT
MOVE BARM TO REFAF+ZHAT+.2*YHAT-.2*XHAT
MOVE BARM TO REFAF+ZHAT+.2*YHAT-.2*XHAT
MOVE BARM TO REFAF+ZHAT+.2*YHAT-.2*XHAT WITH NULLING
MOVE BARM TO REFAF+ZHAT+.1*YHAT-.3*XHAT WITH NULLING
REFAFSAV←REFAF
REFAF←REFAF+.1*YHAT-.3*XHAT
PRA
EDIT PRA
PRA
PRA
WRITE PRA INTO FLASH.PN2[THE,MSM]
WRITE REFAF INTO FLASH.PN2[THE,MSM]
MOVE BARM TO ABOVE_CASING
MOVE BARM TO ABOVE_CASINGS
MOVE BARM TO ABOVE_CASINGS
SHOW ABOVE_CASINGS
MOVE BARM TO CASING[1]
MOVE BARM TO CASING[2]
MOVE BARM TO CASING[3]
MOVE BARM TO CASING[4]
MOVE BARM TO CASING[2]
VIA_PICK(ABOVE_CASINGS,CASING[1],3)
MOVE BARM VIA ABOVE_CASINGS TO CASINGF+3*ZHAT
SHOW KX
TXYZ←NILTRANS+8*ZHAT
KX←40; KY←30; KZ←40; GX←200; GY←400; GZ←200;
DIAG_INSRT0(CASINGF)
SCREW_IN_CASING
PUT_AWAY(1)
PUT_CASING(2)
PUT_AWAY(2)
PUT_CASING(3)
GY←200
MOVE BARM TO BARM WITH DURATION=4 ON FORCE(ZHAT)≥40 DO STOP BARM
PUT_CASING(3)
PUT_AWAY(3)
MOVE BARM TO CASING[3]
MOVE BARM TO CASING[3]+.2*YHAT
CASING[3]←CASING[3]+.2*YHAT
PUT_CASING(3)
PUT_AWAY(3)
PUT_CASING(3)
PUT_AWAY(3)
MOVE BARM TO CASING[1]
PUT_CASING(1)
PUT_AWAY(1)
PUT_CASING(2)
KX←25
PUT_CASING(2)
PUT_AWAY(2)
PUT_CASING(3)
PUT_AWAY(3)
PUT_CASING(4)
PUT_AWAY(4)
MOVE BARM TO CASING[4]
MOVE BARM TO CASING[4]-.2*XHAT
MOVE BARM TO CASING[4]-.2*XHAT+.2*YHAT
CASING[4]←CASING[4]-.2*XHAT+.2*YHAT
PUT_CASING(4)
PUT_AWAY(4)
READ FOO.PNT
PUT_CASING(4)
PA(4)
WRITE KX,KY,KZ,GX,GY,GZ,PA INTO FLASH.PN2[THE,MSM]
DDT
SBR
SBR
EDIT SBR
EDIT PPD
SBR
SHOW SBR
PPD(SCR,⊂(SCRF+(0,-.2,.7))⊃);
MOVE BARM TO SCRF
MOVE BARM TO SCRF+2*ZHAT
MOVE BARM TO SCRF+2*ZHAT
MOVE BARM TO SCRF+2.5*ZHAT
PPD(SCR,⊂(SCRF+(0,-.2,.7))⊃);
PPD(SCR,⊂(SCRF+(0,-.2,3.2))⊃);
SCRF←SCRF+2.5*ZHAT
SCRF←SCRF+2.3*ZHAT
SBR
SCRF←SCRF-2.5*ZHAT
MOVE BARM TO SCRF
SBR
{ continued writing again at 0:47 14 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
SHOW RFA
SHOW SBR
PPD(SCR,⊂(SCRF+(0,-.2,.4))⊃);
SBR
EXIT
{exiting at 0:52 14 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=396}
{ continued writing again at 0:54 14 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
SHOW PPD,SBR
SBR
PPD(SCR,⊂(SCRF+(0,-.2,.4))⊃)
PPD(SCR,⊂(SCRF+(0,-.2,.4))⊃)
PPD(SCR,⊂(SCRF+(0,-.2,.4))⊃)
PPD(SCR,⊂(SCRF+(-.1,-.2,.4))⊃)
EDIT SBR
SHOW SBR
SBR
EDIT SBR
SBR
EDIT
SBR
WRITE SBR INTO FLASH.PN2[THE,MSM]
EXIT
{exiting at 1:11 14 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=412}
{ continued writing again at 10:26 14 Oct 1980}
DDT
SAVECOREIMAGE P2
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 10:29 14 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
QREAD FLASH.PN2[THE,MSM]
QREAD FOO.PNT
SBR
A1←BARM
A2←BARM
A3←BARM
MOVE BARM VIA A1,A2 TO A3
{ continued writing again at 10:40 14 Oct 1980}
DRIVE BJT(1) TO 90
DRIVE BJT(1) TO 0
NODISPLAY
A1←BARM
A2←BARM
A3←BARM
MOVE BARM VIA A1,A2 TO A3
SCALAR I; MOVE BARM VIA A1,A2 TO A3
FOR I←1 STEP 1 UNTIL 10 DO MOVE BARM VIA A1,A2,A3,A1,A2 TO A3
QREAD FLASH.PN2[THE,MSM]
FOR I←1 STEP 1 UNTIL 3 DO MOVE BARM VIA A1,A2,A3,A1,A2 TO A3
SBR
SHOW SBR
EDIT SBR
MOVE BARM TO SCRF
SHOW SCRF
MOVE BARM TO SCRF
MOVE BARM TO SCRF WITH NULLING
MOVE BARM TO SCRF-.1*XHAT-.1*YHAT WITH NULLING
MOVE BARM TO SCRF-.15*XHAT-.1*YHAT WITH NULLING
MOVE BARM TO SCRF-.15*XHAT-.15*YHAT WITH NULLING
SCRF←SCRF-.15*XHAT-.15*YHAT
WRITE SCRF INTO FLASH.PN2[THE,MSM]
EDIT SBR
SHOW SBR
SBR
OPERATE DRIVER WITH DURATION=2 WITH TORQUE=20
SBR
WRITE SCRF,SBR INTO FLASH.PN2[THE,MSM]
EXIT
{exiting at 10:57 14 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=412}
{ continued writing again at 10:57 14 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
OPERATE DRIVER WITH DURATION=2 WITH VELOCITY=100
OPERATE DRIVER WITH DURATION=4 WITH ANGULAR_VELOCITY=100
OPERATE DRIVER WITH DURATION=4 WITH ANGULAR_VELOCITY=1000
OPERATE DRIVER WITH DURATION=6 WITH ANGULAR_VELOCITY=1000
SBR
SHOW SBR
{ continued writing again at 11:05 14 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
DDT
SBR
EDIT SBR
SBR
SHOW SBR
SBR
SBR
QREAD FOO.PNT
SBR
SHOW RD
SHOW SBR
{ continued writing again at 11:38 14 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
TXYZ←NILTRANS+2*ZHAT
SHOW ASSEMBLE_FLASHLIGHT
PUT_REFLECTOR
PUT_BULB(1)
PUT_BULB_RETAINER;
PRINT(KX,KY,KZ,GX,GY,GZ)
KX←40;KY←30;KZ←50;GX←200;GY←400;GZ←200
PUT_BULB_RETAINER
SCREW_BULB_RETAINER
PUT_RETAINER
PUT_LENS
PUT_REFLECTOR_ASSEMBLY
TXYZ←NILTRANS+8*ZHAT
PUT_CASING(1)
PUT_AWAY(1)
EXIT
{exiting at 11:51 14 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=277}
{ continued writing again at 12:44 14 Oct 1980}
SETSTATUS(NOELF)
SETSTATUS(PWCODE)
NODISPLAY
MOVE BARM TO BPARK WITH FORCE(ZHAT)=34.2 ON FORCE(YHAT)>35.5 DO STOP BARM
RESETSTATUS(PWCODE)
RESETSTATUS(NOELF);
MOVE BARM TO BPARK
DDT
RESUME_MESSAGE("JOINT 1 NEW CALIBRATION; ALL GTMEC0 AND GTARM0 CHANGED
");
SAVECOREIMAGE P3
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 13:07 14 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
QREAD FLASH.PN2[THE,MSM]
SHOW ASSEMBLE_FLASHLIGHT
TXYZ←NILTRANS+2*ZHAT
MOVE BARM TO START
PUT_REFLECTPR
PUT_REFLECTOR
PUT_BULB(1)
PUT_BULB_RETAINER
KX←40;KY←30;KZ←50;GX←200;GY←400;GZ←200
PUT_BULB_RETAINTER
{ continued writing again at 13:18 14 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
SHOW ASSFLASH
SETSTATUS(DEBUG)
{ continued writing again at 14:04 14 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
RESUME_MESSAGE("FLASH.PN2[THE,MSM]");SAVECOREIMAGE F0
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 14:14 14 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
SETSTATUS(DEBUG); SHOW ASSFLASH
ASSFLASH(1)
ASSFLASH(2)
KZ←30
PUT_BULB_RETAINER;
RESETSTATUS(DEBUG)
PUT_BULB_RETAINER
{ continued writing again at 15:25 14 Oct 1980}
SHOW ASSFLASH
PUT_BULB_RETAINER
A1←BARM
A2←BARM
A3←BARM
SCALAR I;
FOR I←1 STEP 1 UNTIL 3 DO MOVE BARM VIA A1,A2,A3,A1,A2 TO A3
FOR I←1 STEP 1 UNTIL 10 DO MOVE BARM VIA A1,A2,A3,A1,A2 TO A3
PUT_BULB_RETAINER
SPEED_FACTOR←4
PUT_BULB_RETAINER
SPEED_FACTOR←3
PUT_BULB_RETAINER
FOR I←1 STEP 1 UNTIL 3 DO PUT_BULB_RETAINER
QREAD BAZ.PNT
SHOW DI,PBR
PBR
EDIT DI
EDIT
END;⊃;
EDIT
PBR
PBR
SHOW DI
EDIT
PBR
EDIT
EDIT
PBR
PBR
EDIT
PBR
EDIT DI
EDIT
PBR
PBR
EDIT
PBR
EDIT
EDIT
PBR
PBR
PBR
EDIT
PBR
PBR
WRITE PBR,DI IN BAZ.PNT
WRITE PBR,DI INTO BAZ.PNT
DDT
PBR
EDIT
EDIT
EDIT
PBR
GRAPH
DDT
PBR
EDIT
PBR
GRAPH
PBR
PBR
PBR
EDIT DI
PBR
PBR
PBR
SHOW PBR
EDIT PBR
PBR
PBR
PBR
EDIT PBR
PBR
{ continued writing again at 16:24 14 Oct 1980}
QREAD BAZ.PNT
QREAD BAZ.PNT
SHOW PBR,DI
PBR
PBR
PBR
PBR
SCALAR I;
FOR I←1 STEP 1 UNTIL 10 DO PBR
EDIT DI
EDIT
PBR
PBR
PBR
PBR
PBR
PBR
WRITE DI,PBR INTO BAZ.PNT
DEFINE PBR3=⊂BEGIN PBR;PBR;PBR; END;⊃↑
DEFINE PBR3=⊂BEGIN PBR;PBR;PBR; END;⊃;
PBR3NE PBR3=⊂BEGIN PBR;PBR;PBR; END;⊃;
PBR3NE PBR3=⊂BEGIN PBR;PBR;PBR; END;⊃;
DEFINE PBR3=⊂BEGIN PBR;PBR;PBR; END;⊃;
REDEFINE PBR3=⊂BEGIN PBR;PBR;PBR; END;⊃;
PBR3
PBR3
PBR3
EDIT DI
PBR3;PBR3;PBR3;
EDIT
BEGIN;PBR3;PBR3;PBR3;END;
;EGIN;PBR3;PBR3;PBR3;END;
;EGIN;PBR3;PBR3;PBR3;END;
;EGIN;PBR3;PBR3;PBR3;END;
BEGIN PBR3;PBR3;PBR3;END;
{ continued writing again at 16:53 14 Oct 1980}
QREAD BAZ.PNT
SHOW DI,PBR
DEFINE PBR3=⊂BEGIN PBR;PBR;PBR; END;⊃;
{ continued writing again at 16:57 14 Oct 1980}
QREAD BAZ.PNT
DEFINE PBR3=⊂BEGIN;PBR;PBR;PBR;END;⊃;
PBR
PBR
EDIT DI
PBR3;
BR
PBR
PBR
PBR
PBR
PBR
WRITE PBR,DI INTO BAZ.PNT
PUT_REFLECTOR
SPEED_FACTOR←3
{ continued writing again at 17:19 14 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
SHOW ASSFLASH
SETSTATUS(DEBUG)
ASSFLASH(1)
RESETSTATUS(DEBUG)
EDIT ASSFLASH
⊃;
EDIT
ASSFLASH(2)
{ continued writing again at 17:32 14 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
SAVECOREIMAGE F1
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 17:35 14 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
SHOW ASSFLASH
{ continued writing again at 17:44 14 Oct 1980}
QREAD FLASH.PN2[THE,MSM]
SAVECOREIMAGE F3
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 17:47 14 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
ASSFLASH(1)
{ continued writing again at 19:29 14 Oct 1980}
ASSFLASH(1)
{ continued writing again at 20:10 14 Oct 1980}
ASSFLASH(1)
{ continued writing again at 20:13 14 Oct 1980}
ASSFLASH(1)
{ continued writing again at 20:15 14 Oct 1980}
A1←BARM
{ continued writing again at 20:18 14 Oct 1980}
MOVE BARM TO BPARK
{ continued writing again at 20:55 14 Oct 1980}
DRIVE BJT(1) TO 90
A1←BARM
A2←BARM
A3←BARM
MOVE BARM VIA A1,A2,A3,A1,A2 TO A3
SCALAR I; FOR I←1 STEP 1 UNTIL 5 DO MOVE BARM VIA A1,A2,A3,A1,A2 TO A3
ASSFLASH(1)
ASSFLASH(2)
{ continued writing again at 13:08 15 Oct 1980}
ASSFLASH(1)
ASSEMBLE(1)
ASSEMBLE(1)
ASSEMBLE(
ASSEMBLE(
ASSEMBLE
;
;
DISPLAY ON
EXIT
{exiting at 13:11 15 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=386}
{ continued writing again at 13:12 15 Oct 1980}
FLASHLIGHT
()
AASSFLASH(1);
ASSFLASH(1):;
DISPLAYON
ASSFLASH⊂1⊃
ASSFLASH:1
ASSFLASH:1
DISPLAY
;
REDISPLAY;
DISPLAY FUNCTION;
DISPLAY FUNCTION;
DISPLAY MACRO
DISPLAY FUNCTION
DRIVE BJT(1) BY -90
DRIVE BJT(1) BY +90
EXIT
{exiting at 13:27 15 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=386}
{ continued writing again at 14:30 15 Oct 1980}
EXIT
{exiting at 14:47 15 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=39}
{ continued writing again at 14:47 15 Oct 1980}
EXIT
{exiting at 14:48 15 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=39}
{ continued writing again at 17:04 20 Oct 1980}
ASSFLASH(1)
MOVE BARM TO BPARK
EXIT
{exiting at 17:08 20 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=277}
{ continued writing again at 12:16 21 Oct 1980}
MOVE BJT(1) TO 90
DRIVE BJT(1) TO 90
MOVE BARM TO BPARK
NODISPLAY
DRIVE BJT(1) TO 90
DRIVE BJT(1) TO 0
A1←BARM
DRIVE BJT(1) TO 90
A2←BARM
MOVE BARM VIA A1,A2,BPARK,A1,A2,BPARK,A1, A2 TO BPARK
MOVE BARM VIA A1,A2,BPARK,A1,A2,BPARK,A1, A2 TO BPARK WITH SPEED_FACTOR=2
MOVE BARM VIA A1,A2,BPARK,A1,A2,BPARK,A1, A2 TO BPARK WITH SPEED_FACTOR=1.5
MOVE BARM VIA A1,A2,BPARK,A1,A2,BPARK,A1, A2 TO BPARK WITH SPEED_FACTOR=1
MOVE BARM VIA A1,A2,BPARK,A1,A2,BPARK,A1, A2 TO BPARK WITH SPEED_FACTOR=0.5
MOVE BARM VIA A1,A2,BPARK,A1,A2,BPARK,A1, A2 TO BPARK WITH SPEED_FACTOR=0.3
MOVE BARM VIA A1,A2,BPARK,A1,A2,BPARK,A1, A2 TO BPARK WITH SPEED_FACTOR=0.4
MOVE BARM VIA A1,A2,BPARK,A1,A2,BPARK,A1, A2 TO BPARK WITH SPEED_FACTOR=0.5
EXIT
{exiting at 12:49 21 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=63}
{ continued writing again at 12:59 21 Oct 1980}
MOVE BARM TO BPARK
REDISPLAY
RESUME_MESSAGE("");
SAVECOREIMAGE P0
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 13:01 21 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
EXIT
{exiting at 13:02 21 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=60}
{ continued writing again at 13:03 21 Oct 1980}
MOVE BARM TO BPARK
MOVE BARM TO BPARK
EXIT
{exiting at 13:07 21 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=60}
{ continued writing again at 13:17 21 Oct 1980}
EXIT
{exiting at 13:28 21 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=60}
{ continued writing again at 14:53 21 Oct 1980}
ASSFLASH(1)
{ continued writing again at 15:21 23 Oct 1980}
ASSFLASH(1)
ASSFLASH(2)
MOVE BARM TO BPARK
EXIT
{exiting at 15:28 23 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=277}
{ continued writing again at 15:48 23 Oct 1980}
SHOW ASSFLASH(1)
SHOW ASSFLASH
TXYZ←NILTRANS+2*ZHAT
PUT_REFLECTOR
PUT_BULB
(1)
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
{ continued writing again at 15:54 23 Oct 1980}
SHOW ASSFLASH
QREAD FOO.PNT[THE,MSM]
QREAD
QREAD FOO.PNT[THE,MSM]
TXYZ←NILTRANS+2*ZHAT
SHOW D2
P
SHOW P
EDIT P
P
P
P
P
P
P
P
P
P
P
P
{ continued writing again at 16:08 23 Oct 1980}
QREAD FOO.PNT[THE,MSM]
SHOW P,D2
EDIT P
EDIT D2
P
P
EDIT D2
P
EDIT P
P
P
EDIT D2
P
P
P
P
P
P
P
WRITE P,D2 INTO FOO.PNT[THE,MSM]
P
EXIT
{exiting at 16:33 23 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=333}
{ continued writing again at 12:37 24 Oct 1980}
QREAD FOO.PNT[THE,MSM]
{ continued writing again at 12:39 24 Oct 1980}
QREAD FOO.PNT[THE,MSM]
SHOW D2,P
MOVE BARM TO ⊗+3*ZHAT
P
P
P
P
P
EDIT D2
P
P
{ continued writing again at 12:49 24 Oct 1980}
QREAD FOO.PNT[THE,MSM]
{ continued writing again at 13:15 24 Oct 1980}
QREAD FOO.PNT[THE,MSM]
{ continued writing again at 13:19 24 Oct 1980}
QREAD FOO.PNT[THE,MSM]
{ continued writing again at 13:24 24 Oct 1980}
TXYZ←NILTRANS+2*ZHAT
PUT_BULB(1)
SHOW P,D2
QREAD FOO.PNT[THE,MSM]
SHOW P,D2
P
P
P
P
P
P
EDIT P
P
P
EDIT P
P
P
P
P
PICK(BRET,.5)
MOVE BARM TO BRETF+ZHAT
PCIK(BRET,.5)
PICK(BRET,.5)
PICK(BRET,.5)
MOVE BARM TO BRETF+3*ZHT
MOVE BARM TO BRETF+3*ZHAT
B←BRETF+3*ZHAT
EDIT B
MOVE BARM TO B
EDIT B
MOVE BARM TO B
MOVE BARM TO B
MOVE BARM TO B
MOVE BARM TO B
MOVE BARM TO B
SHOW B
B←B
MOVE BARM TO B VIA B+3*ZHAT
MOVE BARM TO BRETF
EXIT
{exiting at 13:52 24 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=330}
{ continued writing again at 13:57 24 Oct 1980}
ASSFLASH(1)
{ continued writing again at 14:00 24 Oct 1980}
DRIVE BJT(1) TO 180
DRIVE BJT(2) TO -70
DRIVE BJT(2) TO 110
DRIVE BJT(2) TO -110
DRIVE BJT(2) TO -70
DRIVE BJT(2) TO -110
DRIVE BJT(2) TO -70
DRIVE BJT(2) TO -120
{ continued writing again at 14:10 24 Oct 1980}
ASSFLASH(1)
{ continued writing again at 16:33 24 Oct 1980}
SHOW FRAMES
DISPLAY FRAMES
DISPLAY TRANSES
DISPLAY TRANS
T←TRANS(ROT(XHAT,90),XHAT);
T←TANS(ROT(YHAT,90),XHAT)
T←TRANS(ROT(YHAT,90),XHAT)
SHOW T
(RINT(T*ZHAT)
PRINT(T*ZHAT)
PRINT(T*TRANS(NILROT,ZHAT))
V1←ZHAT;
V2←ZHAT;
R1←ROT(YHAT,90)
R2←ROT(XHAT,90)
PRINT((R1,V1)*(R2,V2))
PRINT((R2,V2)*(R1,V1))
PRINT(CRLF,(R2,V2)*(R1,V1))
PRINT(CRLF,(R2,V2)*(R1,V1))
{ continued writing again at 11:27 25 Oct 1980}
DRIVE BJT(5) TO 0
DRIVE BJT(5) TO 90
DRIVE BJT(5) TO -90
DRIVE BJT(5) TO 90
A←BARM
MOVE BARM TO BPARK VIA A, BPARK, A, BPARK, A
{ continued writing again at 12:02 25 Oct 1980}
CENTER BARM
NODISPLAY
MOVE BARM TO BPARK
MOVE BARM TO BPARK
DRIVE BJT(1) TO 90
MOVE BARM TO BPARK
MOVE BARM TO BPARK
MOVE BARM TO BPARK
MOVE BARM TO BPARK
CENTER BARM
CENTER BARM
CENTER BARM
CENTER BARM
DDT
CENTER BARM
CENTER BARM
CENTER BARM
CENTER BARM
CENTER BARM
CENTER BARM
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 14:03 25 Oct 1980 for ALIAS PPN = HE
LOGIN PPN = JKS USERNAME = Ken}
SAVECOREIMAGE P0
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 14:04 25 Oct 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
MOVE BARM TO BPARK
DRIVE BJT(1) TO 90
A←BARM
MOVE BARM TO BPARK VIA A,BPARK,A,BPARK,A
CENTER BARM
DRIVE BJT(5) TO 0
EXIT
{exiting at 14:07 25 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=44}
{ continued writing again at 17:19 26 Oct 1980}
SHOW ASSFLASH
TXYZ←NILTRANS+2*ZHAT
PUT_REFLECTOR
PUT_BULB(1)
PUT_BULB_RETAINER
SCREW_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
PUT_BULB_RETAINER
SHOW PUT_BULB_RETAINER
PICK(BRET,0.5)
SHOW DIAG2
QREAD FOO.PNT
SHOW D
D(⊂BRETF+.05*XHAT⊃)
PICK(BRET,.5)
D(⊂BRETF-.05*XHAT)
D(⊂BRETF-.05*XHAT⊃);
EDIT D
PICK(BRET,.5)
D(⊂(BRETF-.15*XHAT)⊃)
PICK(BRET,.5)
D(⊂BRETF-.15*XHAT)⊃)
D(⊂(BRETF-.15*XHAT)⊃)
PICK(BRET,.5)
D(⊂(BRETF-.15*XHAT)⊃)
EDIT D
PICK(BRET,.5)
D(⊂(BRETF-.15*XHAT)⊃);
PICK(BRET,.5);
D(⊂(BRETF-.15*XHAT)⊃);
PICK(BRET,.5)
D(⊂(BRETF-.15*XHAT)⊃);
PICK(BRETF,.5)
PICK(BRET,.5)
D(⊂(BRETF-.15*XHAT)⊃);
PICK(BRET,.5)
D(⊂(BRETF-.15*XHAT)⊃);
PICK(BRET,.5)
D(⊂BRETF-.15*XHAT)⊃);
D(⊂(BRETF-.15*XHAT)⊃);
DEFINE PD=⊂PICK(BRET,.5);D(⊂(BRETF-.15*XHAT)⊃);⊃;
PD
PD
WRITE PD,D INTO FOO.PNT
PD
PD
OPEN BHAND TO 2
MOVE BARM TO BRETF
EDIT D
PD
MOVE BARM TO BRETF
SHOW BRETF
EDIT D
PD
PD
EDIT D
PD
PD
PD
PD
PD
PD
RELEASE
PD
WRITE PD,D INTO FOO.PNT
RELEASE
PD
RELEASE
PD
EDIT D
PD
PD
PD
PD
PD
EDIT D
PD
PD
PD
PD
PD
EDIT D
PD
PD
PD
PD
PD
PD
WRITE PD,D
SHOW SCREW_BULB_RETANER
SHOW SCREW_BULB_RETAINER
PICK_AND_PLACE_DRIVER(CRF,(SCRF+(-.2,-.2,.4)))
PICK_AND_PLACE_DRIVER(SCR,(SCRF+(-.2,-.2,.4)))
SCREW_BULB_RETAINTER
SCREW_BULB_RETAINER
QREAD FOO2.PNT
SHOW SBR
SBR
EDIT SBR
SBR
{ continued writing again at 18:24 26 Oct 1980}
QREAD FOO.PNT
SHOW SBR
TXYZ←NILTRANS+2*ZHAT
SBR
SBR
SBR
SBR
SBR
EDIT SBR
EDIT
SBR
SBR
SBR
EDIT
EDIT
SBR
SBR
SBR
SBR
SBR
SBR
{ continued writing again at 18:36 26 Oct 1980}
QREAD FOO.PNT
RELEASE
SBR
SBR
SHOW SBR
EDIT SBR
SBR
SBR
SBR
SBR
SBR
SBR
SBR
EDIT
SBR
SBR
EDIT
⊃;
EDIT
SBR
SBR
SBR
EDIT
⊃;
SBR
EDIT
SBR
{ continued writing again at 18:48 26 Oct 1980}
QREAD FOO.PNT
RELEASE
SBR
SBR
SBR
SBR
SBR
SBR
{ continued writing again at 12:44 27 Oct 1980}
VT05_YELLOW
{ continued writing again at 13:07 27 Oct 1980}
IF 1>3 THEN PRINT("YES",CRLF) ELSE PRINT("NO",CRLF)
IF 1<3 THEN PRINT("YES",CRLF) ELSE PRINT("NO",CRLF)
IF 0<3 THEN PRINT("YES",CRLF) ELSE PRINT("NO",CRLF)
IF 0<3 THEN PRINT("YES",CRLF) ELSE PRINT("NO",CRLF)
IF 0<-3 THEN PRINT("YES",CRLF) ELSE PRINT("NO",CRLF)
IF 0>-3 THEN PRINT("YES",CRLF) ELSE PRINT("NO",CRLF)
IF 0<-3 THEN PRINT("YES",CRLF) ELSE PRINT("NO",CRLF)
PRINT(-1000)
PRINT(1000)
PRINT(-1000)
PRINT(-2000)
A←-2
PRINT(A);
PRINT(A,"-3");
EXIT
{exiting at 13:10 27 Oct 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=277}
{ continued writing again at 14:20 27 Oct 1980}
DIRVE BJT(1) TO 0
DRIVE BJT(1) TO 0
MOVE BARM TO BPARK
DRIVE BJT(1) TO 0
A←BARM
MOVE BARM TO BPARK VIA A,BPARK,A,BPARK
MOVE BARM TO BPARK VIA A,BPARK,A,BPARK WITH SPEED_FACTOR=1.5
MOVE BARM TO BPARK VIA A,BPARK,A,BPARK WITH SPEED_FACTOR=1.2
MOVE BARM TO BPARK VIA A,BPARK,A,BPARK WITH SPEED_FACTOR=1.0
MOVE BARM TO BPARK VIA A,BPARK,A,BPARK WITH SPEED_FACTOR=0.9
MOVE BARM TO BPARK VIA A,BPARK,A,BPARK WITH SPEED_FACTOR=0.7
MOVE BARM TO BPARK VIA A,BPARK,A,BPARK WITH SPEED_FACTOR=0.6
MOVE BARM TO BPARK VIA A,BPARK,A,BPARK WITH SPEED_FACTOR=0.5
MOVE BARM TO BPARK VIA A,BPARK,A,BPARK WITH SPEED_FACTOR=0.5
MOVE BARM TO A
DRIVE BJT(5) TO 0
B←BARM
MOVE BARM TO BPARK
MOVE BARM TO BPARK VIA B,BPARK,B,BPARK
MOVE BARM TO BPARK VIA B,BPARK,B,BPARK WITH SPEED_FACTOR=1.5
MOVE BARM TO BPARK VIA B,BPARK,B,BPARK WITH SPEED_FACTOR=1.0
MOVE BARM TO BPARK VIA B,BPARK,B,BPARK WITH SPEED_FACTOR=0.5
MOVE BARM TO B
DRIVE BJT(5) TO -90
C←BARM
MOVE BARM TO BPARK VIA C,BPARK,C,BPARK WITH SPEED_FACTOR=1
MOVE BARM TO BPARK VIA C,BPARK,C,BPARK WITH SPEED_FACTOR=.5
MOVE BARM TO BPARK VIA C,BPARK,C,BPARK WITH SPEED_FACTOR=.5
{ continued writing again at 14:45 27 Oct 1980}
MOVE BARM TO TRANS(ORIENT(BPARK),(28,30,10))
MOVE BARM TO BPARK
DDT
MOVE BARM TO TRANS(OREINT(BPARK),(28,30,10))
MOVE BARM TO TRANS(ORIENT(BPARK),(28,30,10))
P←TRANS(ORIENT(BPARK)*ROT(ZHAT,180),(28,30,10))
MOVE BARM TO BPARK
MOVE BARM TO P
CASTING0←BARM
MOVE BARM TO CASTING0 VIA CASTING0+3*ZHAT
CENTER BARM
DDT
CENTER BARM
CENTER BARM
CENTER BARM
NODISPLAY
DDT
CENTER BARM
CENTER BARM
MOVE BARM TO CASTING0+3*ZHAT
SHOW CASTING0
CLOSE BHAND TO 0 ON ERROR=EXCESSIVE FORCE TO STOP BHAND
CLOSE BHAND TO 0 ON ERROR=EXCESSIVE_FORCE TO STOP BHAND
CLOSE BHAND TO 0 ON ERROR=EXCESSIVE_FORCE DO STOP BHAND
CLOSE BHAND TO 0 ON ERROR=EXCESSIVE_FORCE DO STOP ;
SHOW BARM
MOVE BARM TO BARM-4*YAHT
MOVE BARM TO BARM-4*YHAT
MOVE BARM TO BARM+.5*ZHAT
MOVE BARM TO BARM-.5*YHAT
MOVE BARM TO BARM+4*XHAT
MOVE BARM TO BARM-1*XHAT
MOVE BARM TO BARM+.5*XHAT
MOVE BARM TO BARM+4.55*YHAT
MOVE BARM TO BARM-.15*XHAT
MOVE BARM TO (ORIENT(BARM),(13,31,4.25))
R←ORIENT(BARM)
SHOW RR
SHOW R
EDIT R
MOVE BARM TO (R,POS(BARM))
EDIT R
MOVE BARM TO (R,POS(BARM))
MOVE BARM TO BARM-.5*XHAT
MOVEX BY .25
MOVEX BARM BY .25
BY -.125
SHOW BARM
MOVEZ BARM BY .25
MOVEZ BARM BY .25
MOVEZ BARM BY .25
MOVEZ BARM BY -.125
SHOW BARM
R←ORIENT(BARM)
EDIT R
MOVE BARM TO (R,POS(BARM))
EDIT R
MOVE BARM TO (R,POS(BARM))
EDIT R
MOVE BARM TO (R,POS(BARM))
MOVE BARM TO (ROT(ZHAT,95)*ROT(YHAT,180),POS(BARM))
MOVE BARM TO (ROT(ZHAT,90)*ROT(YHAT,180),POS(BARM)) SLOWLY
MOVE BARM TO (ROT(ZHAT,90)*ROT(YHAT,180),POS(BARM)) WITH SPEED_FACTOR=4
MOVE BARM TO (ROT(ZHAT,90)*ROT(YHAT,180),POS(BARM)) WITH NULLING
MOVE BARM TO (ROT(ZHAT,93)*ROT(YHAT,180),POS(BARM)) WITH NULLING
MOVE BARM TO ⊗+(-1.25,1.75,0)
MOVE BARM TO ⊗-2*ZHAT ON FORCE(ZHAT)≥ 40 DO STOP BARM
MOVE BARM TO ⊗+(0.5,0.1,0.25)
MOVE BARM TO ⊗+(-0.125,-3/1,0)
MOVE BARM TO ⊗+(-0.25,3-3/16,0)
MOVE BARM TO ⊗+( 0.100,-0.12,0)
MOVE BARM TO (ORIENT(BARM),(11.75,32.75,2.9))
MOVE BARM TO ((ZHAT,90)*(YHAT,180),(11.75,32.75,2.9))
SHOW BARM
SHOW BARM
PRINT(ZHAT WRT BARM)
V←ZHAT WRT BARM
MOVE BARM TO ⊗-V
MOVE BARM TO ⊗+V
MOVE BARM TO ⊗+.25*V
VX ← XHAT WRT BARM
MOVE BARM TO ((VX,5)*ORIENT(BARM),POS(BARM))
MOVE BARM TO ((VX,-2)*ORIENT(BARM),POS(BARM))
MOVE BARM TO ((VX,-1)*ORIENT(BARM),POS(BARM))
MOVE BARM TO ((VX,-1)*ORIENT(BARM),POS(BARM))
MOVE BARM TO ((VX,-1)*ORIENT(BARM),POS(BARM))
SHOW BARM
MOVE BARM TO BARM#(-1.5*ZHAT)
MOVE BARM TO BARM#(1*ZHAT)
MOVE BARM TO BARM#(.25*YHAT)
MOVE BARM TO BARM#(-.5*ZHAT)
MOVE BARM TO BARM#(.125*YHAT)
MOVE BARM TO BARM#(.125*YHAT)
MOVE BARM TO BARM#(.125*YHAT)
MOVE BARM TO BARM#(.125*YHAT)
MOVE BARM TO BARM#(.125*YHAT)
MOVE BARM TO BARM#(-.25*ZHAT)
MOVE BARM TO BARM#(.25*YHAT)
MOVE BARM TO BARM#(.25*YHAT)
MOVE BARM TO BARM#(.125*XHAT)
MOVE BARM TO BARM#(.125*YHAT)
A←BARM#(2.5*ZHAT)
SHOW A
MOVE BARM TO BARM#(ZHAT)
MOVE BARM TO BARM#(-2*ZHAT)
MOVE BARM TO BARM#(ZHAT)
SHOW BARM
MOVE BARM TO BARM#(-3*ZHAT)
H←((ZHAT,-20)*(YHAT,145)*(ZHAT,84),(59.64,50.95,4.09))
MOVE BARM TO H
MOVE BARM TO H WITH NULLING
MOVE BARM TO H WITH NULLING
MOVE BARM TO H#(-.5*ZHAT) WITH NULLING
EXIT
{exiting at 16:11 27 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=56}
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 16:26 27 Oct 1980 for ALIAS PPN = HE
LOGIN PPN = MSM USERNAME = Shahid}
SAVECOREIMAGE P0
{ continued writing again at 20:00 27 Oct 1980}
HI
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:20 28 Oct 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD RL
QREAD RL2.PNT
QREAD RL2.PNT
QREAD RL2.PNT
QREAD RL2.PNT
BAIL(BREAK("GET"));
QREAD RL2.PNT
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 14:33 28 Oct 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
BAIL(BREAK("ERROR"));
QREAD RL2.PNT
QREAD RL2.PNT[THE,MSM]
QREAD RL2.PNT
BAIL(BREAK("GET"));
QREAD RL2.PNT
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 13:04 29 Oct 1980 for ALIAS PPN = HE
LOGIN PPN = MSM USERNAME = Shahid}
RESUME_MESSAGE "VERSION OF WED OCT 29";
RESUME_MESSAGE ("VERSION OF WED OCT 29");
SAVECOREIMAGE P1
{ continued writing again at 13:21 29 Oct 1980}
MOVE BARM TO BPARK
QREAD RL2.PNT[TMP,MSM]
EXIT
{exiting at 13:26 29 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ continued writing again at 13:28 29 Oct 1980}
QREAD RL2.PNT
EXIT
{exiting at 13:30 29 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ continued writing again at 13:35 29 Oct 1980}
EXIT
{exiting at 13:41 29 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ continued writing again at 13:44 29 Oct 1980}
RESUME_MESSAGE ("MSM SYSTEM PRIMITIVES INCLUDED");
SAVECOREIMAGE MSM
{ continued writing again at 16:59 29 Oct 1980}
CENTER BARM
CENTER BARM
CENTER BARM
NODISPLAY
CENTER BARM
CENTER BARM
CENTER BARM
CENTER BARM
CENTER BARM
CENTER BARM
CENTER BARM
CENTER BARM
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 3:59 30 Oct 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SETSTATUS(PWCODE);
PROCEDURE A; PRINT("ABC");
PROCEDURE A(SCALAR B,C); PRINT("ABC");
{PROCEDURE A(SCALAR B,C); PRINT("ABC");}
PROCEDURE A1(SCALAR B,C); PRINT("ABC");
PROCEDURE A2(SCALAR B,C(3.0)); PRINT(B,C);
A2(3,1);
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 4:16 30 Oct 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SCALAR PROCEDURE B(SCALAR A,B(2.0)); RETURN(A+B);
{SCALAR PROCEDURE B(SCALAR A,B(2.0)); RETURN(A+B);}
SCALAR PROCEDURE B(SCALAR A,B(2.0)); RETURN(A+B);
{SCALAR PROCEDURE B(SCALAR A,B(2.0)); RETURN(A+B);}
SCALAR PROCEDURE B(SCALAR A,B2(2.0)); RETURN(A+B2);
W←1
SHOW W,B
W←B(3,4)
W←B(1);
VECTOR PROCEDURE V1(VECTOR V2,V3(XHAT)); RETURN(V2+V3);
V0←(0,0,0)
SHOW V0,V1
V0←V1(NILVECT);
VECTOR PROCEDURE VV1(VECTOR V2,V3(XHAT )); RETURN(V2+V3);
{ WRITTEN BY 5.N .$↑ [$X , *] AT 4:29 30 Oct 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
A0←0,V0←NILVECT
A0←0;V0←NILVECT
SCALAR PROCEDURE SADD(SCALAR S1,S2(2.3)); RETURN(S1+S2);
VECTOR PROCEDURE VADD(VECTOR V1(XHAT),V2(YHAT)); RETURN(V1+V2);
SHOW A0,V0,SADD,VADD
A0←SADD(2,3);
A0←SADD(2);
{ WRITTEN BY 5.N .$↑ [$X , *] AT 14:38 30 Oct 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
SCALAR PROCEDURE A1(SCALAR A,B(2.3));RETURN(A+B)
SHOW A1
A0←A1(3,4)
A0←A1(3)
SCALAR PROCEDURE A2(SCALAR A,B(2.3 )); RETURN(A+B)
A0←A2(2.1);
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 15:28 30 Oct 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SETSTATUS(PWCODE);
SCALAR PROCEDURE SADD(SCALAR A,B(2)); RETURN(A+B);
NODISPLAY
S1←SADD(1.3);
SCALAR PROCEDURE SADD2(SCALAR A(1.2),B(3.1)); RETURN(A+B);
S1←SADD2(1.6)
S2←SADD2;
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 22:52 30 Oct 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SCALAR PROCEDURE SADD(SCALAR A,B(2.3)); RETURN(A+B);
SHOW SADD
S0←SADD(1);
SHOW S0,SADD
SCALAR PROCEDURE SADD2(SCALAR A(1.1),B(2.2)); RETURN(A+B);
SHOW SADD2
SHOW SADD2,S0
{ continued writing again at 12:55 31 Oct 1980}
QREAD RL2.PNT[TMP,MSM]
EXIT
{exiting at 12:56 31 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=219}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 12:57 31 Oct 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
SCALAR PROCEDURE SADD(SCALAR S1(2),S2(3)); RETURN(S1+S2);
S0←0
SHOW S0,SADD
S0←SADD(1,2)
S0←SADD(1)
S0←SADD;
S0←SADD
;
S0←SADD+1
S0←SADD+SADD;
S0←SADD*6;
Q
SCALAR PROCEDURE VS(VECTOR V1(V0)); RETURN(|V1|);
V0←3*XHAT;
V1←NILVECT; SHOW VS,V0,V1
SHOW VS,V0,V1,S0
S0←VS(XHAT);
S0←VS;
EXIT
{exiting at 13:48 31 Oct 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=26}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 15:20 31 Oct 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
SCALAR PROCEDURE SADD(VALUE SCALAR A,B(3.0)); RETURN(A+B);
SCALAR PROCEDURE SADD(VALUE SCALAR A,B(XHAT)); RETURN(A+B);
;
SCALAR PROCEDURE SADD1(VALUE SCALAR A,B(YHAT)); RETURN(A+B);
SCALAR ARRAY SA[1:3];
{ continued writing again at 15:57 31 Oct 1980}
MOVE BARM TO BPARK
REQUIRE SOURCE_FILE FLSHDAT.DAT[1,MSM]
REQUIRE SOURCE_FILE FLSHDT.DAT[1,MSM]
QREAD HDS
QREAD HDS
QREAD HDS
QREAD HDS
QREAD HDS
{ continued writing again at 16:23 31 Oct 1980}
OPERATE DRIVER WITH DURATION=1 WITH TORQUE=20
OPERATE DRIVER WITH DURATION=1 WITH TORQUE=20
OPERATE DRIVER WITH DURATION=1 WITH TORQUE=-20
OPERATE DRIVER WITH DURATION=2 WITH ANGULAR_VELOCITY=10
OPERATE DRIVER WITH DURATION=2 WITH ANGULAR_VELOCITY=10
OPERATE DRIVER WITH DURATION=1 WITH TORQUE=20
QREAD FLSHDT.DAT[1,MSM]
QREAD HDS
{ continued writing again at 16:41 31 Oct 1980}
QREAD HDS
{ continued writing again at 2:10 3 Nov 1980}
BLUE1 ← BARM
YEL1 ← YARM
BLUE2 ← BARM
YEL2 ← YARM
BLUE3 ← BARM
YEL3 ← YARM
YEL4 ← YARM
BLUE4 ← BARM
OUTPUT DATA.PNT
HELP
WRITE INTO DATA.PNT
EXIT
{exiting at 2:28 3 Nov 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ continued writing again at 2:50 3 Nov 1980}
BLUE2 ← BARM
BLUE1 ← BARM
MOVE BARM TO BLUE2
YEL2 ← YARM
YEL1 ← YARM
MOVE BARM TO BPARK
MOVE YARM TO YPARK
MOVE YARM TO YPARK
MOVE YARM TO YPARK
WRITE INTO DATA.PNT
EXIT
{exiting at 2:55 3 Nov 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 21:30 3 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD HDS[1,HDS]
QREAD HDS[1,HSX]
SETSTATUS(PWCODE); QREAD HDS[1,HSX]
RESETSTATUS(PWCODE); QREAD FLSHDT.DAT[1,MSM]; SETSTATUS(PWCODE); QREAD HDS[1,HSX]
QREAD PNTIN2.PNT
QREAD PROC.PNT
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 21:58 3 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD PROC.PNT; QREAD FLSHDT.DAT[1,MSM]; QREAD HDS[1,HSX]
EXIT
{exiting at 22:59 3 Nov 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 1:51 4 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SETSTATUS(PWCODE);
SCALAR PROCEDURE SADD(SCALAR A(1),B(2)); RETURN(A+B);
SCALAR PROCEDURE SADD2(SCALAR A(1),B); RETURN(A+B);
;
;
;
;
;
;
;
END;
SCALAR PROCEDURE SADD2(SCALAR A,B(2)); RETURN(A+B);
PRINT(SADD2(2));
PRINT(SADD2(2,3));
{ WRITTEN BY 5.N .$↑ [$X , *] AT 2:01 4 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SCALAR PROCEDURE SADD(SCALAR A(1),B); RETURN(A);
END;{SCALAR PROCEDURE SADD(SCALAR A(1),B); RETURN(A);}
SCALAR PROCEDURE SADD(SCALAR A,B(2),C(3)); RETURN(A);
PRINT(SADD);
PRINT(SADD(1));
PRINT(SADD(1,3));
SCALAR PROCEDURE SS(SCALAR A(2),B(ZHAT)); RETURN(A)
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 2:18 4 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SCALAR A;
SCALAR PROCEDURE FOO(SCALAR A,B); RETURN(A);
SHOW FOO
SCALAR PROCEDURE FOO2(SCALAR A,B(2)); RETURN(B);
SHOW FOO2
EXIT
{exiting at 2:19 4 Nov 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=23}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:23 4 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD PROC.PNT
SAVECOREIMAGE MSM2
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:32 4 Nov 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
SETSTATUS(PPCODE);
NODISPLAY
W←BARM
AFFIX W TO BARM
UNFIX W FROM BARM
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:55 4 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
W←BARM
NODISPLAY
AFFIX W TO BARM
SHOW W
AFFIX W TO BARM
DISPLAY FRAMES
UNFIX W FROM BARM
{ WRITTEN BY 5.N .$↑ [$X , *] AT 14:11 4 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
BAIL(BREAK("UNFIXMENT"));
W←BARM
AFFIX W TO BARM
UNFIX W FROM BARM
BAIL("$EXECUTE");UNFIX W FROM BARM
BAIL("$EXECUTE");UNFIX W FROM BARM
UNFIX W FROM BARM
{ WRITTEN BY 5.N .$↑ [$X , *] AT 14:52 4 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
W←BARM
AFFIX W TO BARM
UNFIX W FROM BARM
AFFIX W TO BARM
PROCEDURE FOO(FRAME F); UNFIX F FROM BARM
FOO(W)
X←BARM
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 15:28 4 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
PROCEDURE AFF(FRAME A); AFFIX A TO BARM;
W←BARM
AFF(W)
AFFIX W TO BARM
UNFIX W FROM BARM
QREAD PROC.PNT
QREAD FLSHDT.DAT[1,MSM]
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 15:37 4 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD PROC.PNT
SAVECOREIMAGE MSM
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 15:40 4 Nov 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
EXIT
{exiting at 15:44 4 Nov 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=219}
{ continued writing again at 15:45 4 Nov 1980}
AFFIX BARM TO BARM
DEBUGON;
PROCEDURE AFF(FRAME A);BEGIN AFFIX A TO BARM; END;
W←BARM
AFF(A);
{ continued writing again at 15:48 4 Nov 1980}
NODISPLAY
RESUME_MESSAGE "MSM ELEMENTS INCLUDED"
RESUME_MESSAGE ("MSM ELEMENTS INCLUDED");
SAVECOREIMAGE MSM
{ continued writing again at 16:19 5 Nov 1980}
P0←YPARK
P1←YARM;
P21←YARM
P22←YARM
MOVE YARM TO P0,P1,P0,P21,P22,P0
MOVE YARM TO P0,P1,P0,P21,P22,P0 WITH DURATION = 10
MOVE YARM TO P0,P1,P0,P21,P22,P0 WITH DURATION = 10
MOVE YARM TO P0,P1,P0,P21,P22,P0 WITH DURATION = 10
MOVE YARM TO P1 WITH DURATION = 10
MOVE YARM TO P0,P1,P0,P1 WITH DURATION = 10
MOVE YARM TO P0,P1,P0,P1 WITH DURATION = 10
MOVE YARM TO P0 VIA P1,P0,P1 WITH DURATION = 10
MOVE YARM TO P0 VIA P1,P0,P1,P0,P21,P22,P0 WITH DURATION = 10
{ continued writing again at 16:42 5 Nov 1980}
P31←YARM
P32←YARM
OPEN YHAND TO 2
OPEN YHAND TO 2
OPEN YHAND TO 2
MOVE YARM TO P0 VIA P31,P32 WITH DURATION = 8
MOVE YARM TO YPARK VIA P31,P32 WITH DURATION = 8
MOVE YARM TO YPARK VIA P31,P32 WITH DURATION = 4
MOVE YARM TO YPARK VIA P31,P32 WITH DURATION = 42
MOVE YARM TO YPARK VIA P31,P32 WITH DURATION = 2
MOVE YARM TO YPARK VIA P31,P32,P31,P32 WITH DUARTION = 6
MOVE YARM TO YPARK VIA P31,P32,P31,P32 WITH DURATION = 6
MOVE YARM TO YPARK VIA P31,P32,P31,P32 WITH DURATION = 4
MOVE YARM TO YPARK VIA P31,P32,P31,P32 WITH DURATION = 5
MOVE YARM TO YPARK VIA P31,P32,P31,P32 WITH DURATION = 6
WRITE P32,P31 INTO YEXER.AL
P41←YARM;
P42←YARM;MOVE YARM TO YPARK VIA P41,P42 WITH DURATION= 8
VT05_YELLOW;
MOVE YARM TO YPARK VIA P41,P42,P41,P42 WITH DURATION= 8
WRITE P41,P42 INTO YEXER
WRITE P41,P42 INTO YEXER.AL
WRITE P41,P42 INTO YEXER.AL
P5←YARM;
MOVE YARM TO YPARK VIA P5,YPARK,P5 WITH DURATION= 5
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:09 6 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
DEFINE FOO(A,B(C))=⊂PRINT(A,B);)
;
;
⊃;
DEFINE F(A,B,C)=⊂A+B+C⊃;
DEFINE F1(A(1+3),B,C)=⊂A+B+C⊃;
DEFINE F1(A(1+3),B(23),C(76))=⊂A+B+C⊃;
DEFINE F2(A,B(23),C(76))=⊂A+B+C⊃;
DEFINE F2(A,B,C(76))=⊂A+B+C⊃;
DEFINE F3(A,B,C(76))=⊂A+B+C⊃;
DEFINE F4=⊂A+B+C⊃;
PRINT("F4");
SETSTATUS(PPCODE); PRINT("F4");
SETSTATUS(PPCODE); PRINT(F4);
EXIT
{exiting at 13:17 6 Nov 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 14:52 7 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
DEFINE FOO(A,B(2.3))=⊂PRINT(A+B);⊃;
FOO(1,3);
FOO(1);
FOO(1));
FOO(1);
BAIL(BREAK("EXPANDMACRO"));
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 15:29 7 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
DEFINE FOO(A,B(2.3))=⊂PRINT(A+B);⊃;
FOO(1,2)
BAIL(BREAK("EXPANDMACRO"));
FOO(2,3);
BAIL(BREAK("EXPANDMACRO"));
FOO(2,3);
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 16:03 7 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
DEFINE FOO(A,B(2.3))=⊂PRINT(A+B);⊃;
FOO(1,3)
FOO(1)
SETSTATUS(PWCODE);
DEFINE FOO2(A,B(2.3))=⊂PRINT(A+B);⊃;
FOO2(1,3);
FOO2(2);
SETSTATUS(PPCODE)
DEFINE FOO3(A(1.2),B(2.3))=⊂PRINT(A+B);⊃;
FOO3(2.7)
FOO3;
EXIT
{exiting at 16:06 7 Nov 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=23}
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 12:58 10 Nov 1980 for ALIAS PPN = HE
LOGIN PPN = MSM USERNAME = Shahid}
SAVECOREIMAGE P0
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 13:02 10 Nov 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
NODISPLAY
DEFINE F00(A,B(2.3))=⊂PRINT(A+B);⊃;
SETSTATUS(PPCODE);
FOO(1.2,3);
F00(1.2,3);
F00(1.2);
DEFINE F01(A(1.1),B(2.2))=⊂PRINT(A+B);⊃;
F01;
A←1;
B←2;
F01(A);
F01(A,B);
EXIT
{exiting at 13:05 10 Nov 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ continued writing again at 13:05 10 Nov 1980}
SHOW F00
SHOW F01
SHOW F01,F00
EXIT
{exiting at 13:17 10 Nov 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 14:27 10 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
QREAD PROC2.PNT
DELETE ALL
QREAD PROC2.PNT
QREAD RL2.PNT
BAIL(BREAK("MSMCALL");!!GO);
{ WRITTEN BY 5.N .$↑ [$X , *] AT 15:14 10 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD PROC2.PNT
NODISPLAY
QREAD RL2.PNT
AFFIX BARM TO BARM
UNFIX BARM FROM BARM
EXIT
{exiting at 15:20 10 Nov 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:40 11 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
W←3;
EXIT
{exiting at 14:01 11 Nov 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=23}
{ continued writing again at 15:32 11 Nov 1980}
QREAD FLSDAT.DAT[1,MSM]
QREAD FLSHDT.DAT[1,MSM]
QREAD HDS
QREAD HDS
{ continued writing again at 16:09 11 Nov 1980}
RU MSM[TMP,MSM]
RU MSM[TMP,MSM]
KU MSM[TMP,MSM]
{ WRITTEN BY 5.N .$↑ [$X , *] AT 17:05 11 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
QREAD RL.PNT
QREAD PROC2.PNT
QREAD RL.PNT
SETSTATUS(PPCODE); QREAD RL.PNT
RESETSTATUS(PPCODE); {QREAD RL.PNT}
SETSTATUS(PWCODE); QREAD RL.PNT
GET(F1);
GET(F1,3);
RELEASE(F1);
EXIT
{exiting at 17:14 11 Nov 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 2:24 12 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD PROC2.PNT
QREAD FLSHDT.DAT[1,MSM]
RESUME_MESSAGE("MSM PRIMITIVES INCLUDED");
SAVECOREIMAGE MSM2
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 2:28 12 Nov 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
QREAD PROC3.PNT
RESUME_MESSAGE("MSM1 PRIMTITIVES INCLUDED");
SAVECOREIMAGE MSM3
{ continued writing again at 2:31 12 Nov 1980}
DISPLAY FRAMES
S←3
SHOW BULBF
{ continued writing again at 11:08 12 Nov 1980}
B0←BARM
B1←BARM
MOVE BARM TO B0
A←3*2
DEFINE TEACH(P1)=⊂ PROMPT("MOVE BARM TO P1"); P1←BARM; ⊃;
SHOW TEACH
TEACH(S1)
TEACH(B0)
SHOW B0
TEACH(B1)
SHOW B0,B1
MOVE BARM TO B0 VIA B0+3*ZHAT
CENTER BARM
{ continued writing again at 11:30 12 Nov 1980}
QREAD TEMP.PNT
NODISPLAY
PROCEDURE CENTER_BARM; CENTER BARM ON ERROR=EXCESSIVE_FORCE DO STOP BARM;
OPEN BHAND TO 3
CENTER_BARM
PROCEDURE TRANSFER(FRAME F1,F2);
BEGIN OPEN BHAND TO 3;
MOVE BARM TO F1 VIA F1+4*ZHAT;
CENTER_BARM;
MOVE BARM VIA F1+4*ZHAT, F2+4*ZHAT TO F1;
OPEN BHAND TO 3;
MOVE BARM TO F2*4*ZHAT;
;
DEFINE TRANSFER(F1,F2)=⊂BEGIN OPEN BHAND TO 3;
MOVE BARM TO F1 VIA F1+4*ZHAT;
CENTER_BARM;
MOVE BARM VIA F1+4*ZHAT, F2+4*ZHAT TO F1;
OPEN BHAND TO 3;
MOVE BARM TO F2+4*ZHAT;
END;⊃;
TRANSFER(B0,B1)
SHOW TRANSFER
EDIT TRANSFER
TRANSFER(B0,B1)
DEBUGON;
TRANSFER
TRANSFER(B0,B1);
EXIT
{exiting at 11:56 12 Nov 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=165}
{ continued writing again at 14:20 14 Nov 1980}
NODISPLAY
CENTER BARM
CENTER BARM
{ continued writing again at 14:33 14 Nov 1980}
QREAD PROC3.PNT
NODISPLAY
MOVE BARM TO BPARK
GET (BULB[1],.5)
GET(REF,.6)
PUT(REF,REFF-YHAT+ZHAT)
DIAG_INSERT(REFF,3.5,2)
GUIDED_INSERT(REFF,3.5,2)
GUIDED_INSERT(REFF,3.5,1)
GUIDED_INSERT(REFF,3.5,.5)
GUIDED_INSERT(REFF,3.5,.5)
QREAD PROC4.PNT
GG(REFF,3.5,.5)
GG(REFF,3.5,.5)
GG(REFF,2.5,.5)
GG(REFF,2,.7)
GG(REFF,2,.7)
GG(REFF,3.5,2)
GG(REFF,3.5,.7)
QREAD PROC4.PNT
QREAD PROC4.PNT
QREAD PROC4.PNT
QREAD PROC4.PNT
QREAD PROC4.PNT
GG(REFF,3.5,1)
GG2(REFF,3.5,1)
GG2(REFF,3.5,.7)
GG2(REFF,3.5,.7)
GET(BRET,.6)
MOVE BARM TO BARM-3*ZHAT WRT BARM
PUT(BRET,BREFT+ZHAT)
PUT(BRET,BRETF+ZHAT)
CROSS_INSERT(BRETF,.6,.5)
CROSS_INSERT(BRETF,.6,.5)
MOVE BARM TO BARM+3*ZHAT
CROSS_INSERT(BRETF,.6,.5)
CROSS_INSERT(BRETF,.6,.5)
QREAD PROC4.PNT
CI(BRETF,.6,.5)
CI(BRETF,.6,.5)
CI(BRETF,.6,.5)
MOVE BARM TO BARM+3*ZHAT
CI(BRETF,.6,.5)
QREAD PROC5.PNT
QREAD PROC5.PNT
CII(BRETF,.6,.5)
CII(BRETF,.6,.5)
CII(BRETF,.5,.5)
QREAD PROC6.PNT
QREAD PROC6.PNT
CIII(BRETF,.5,.5)
CIII(BRETF,.5,.5)
CIII(BRETF,.5,.5)
CIII(BRETF,.5,.5)
CIII(BRETF,.5,.5)
QREAD PROC7.PNT
CIII(BRETF,.5,.5)
CIIII(BRETF,.5,.5)
CIIII(BRETF,.5,.5)
CIIII(BRETF,.5,.5)
CIIII(BRETF,.5,.5)
QREAD PROC8.PNT; {C2(BRETF,.5,.5)}
C2(BRETF,.5,.5)
C2(BRETF,.5,.5)
C2(BRETF,.5,.5)
C2(BRETF,.5,.5)
C2(BRETF,.5,1)
QREAD PROC9.PNT; {C3(BRETF,.5,1)}
C3(BRETF,.5,.5)
C3(BRETF,.5,.5)
C3(BRETF,.5,.5)
C3(BRETF,.5,.5)
QREAD PROC9.PNT
C4(BRETF,.6,.5)
C4(BRETF,.6,.5)
QREAD PROC9.PNT
C5(BRETF,.6,.5)
C5(BRETF,.6,.5)
C5(BRETF,.6,.5)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
C5(BRETF,.6,1)
QREAD PROC9.PNT
C6(BRETF,.6,1)
C6(BRETF,.6,.5)
C6(BRETF,.6,.5)
QREAD PROC9.PNT
C8(BRETF,.6,.5)
C8(BRETF,.6,.5)
C8((BRETF-.2*XHAT),.6,.5)
C8((BRETF-.1*XHAT),.6,.5)
C8((BRETF-.1*XHAT),.6,.5)
{ continued writing again at 16:00 14 Nov 1980}
NODISPLAY
QREAD PROC3.PNT
SAVECOREIMAGE MSM3
{ continued writing again at 12:57 18 Nov 1980}
QREAD PROC4.PNT
GET(REF,.6)
PUT(REF,REFF+ZHAT)
PUT(REF,REFF+ZHAT)
DRIVE BJT(1) TO 180
PUT(REF,REFF+ZHAT)
PRINT(REFF)
PRINT(REFF)
PRINT(POS(REFF))
PRINT(POS(BARM))
PRINT(POS(BARM),CRLF,POS(REF),CRLF,POS(REFF)
PRINT(POS(BARM),CRLF,POS(REF),CRLF,POS(REFF))
PUT(REF,REFF+ZHAT)
PUT(REF,REFF+ZHAT)
SPEED_FACTOR←4; PUT(REF,REFF+ZHAT)
GI(REFF,3.5,1.5,1)
GI(REFF,3.5,1.5,1)
GI(REFF,3.5,1.5,.7)
GI(REFF,3.5,1.5,.7)
GI(REFF,3.5,1.5,.7)
GI(REFF,3.5,1.5,.5)
GI(REFF,3.5,1.5,.5)
RELEASE(REF)
MOVE BARM TO BARM+3*ZHAT
GET(BODY[1],3.5)
GET(CASING[1],3.5)
PUT(CASING[1],ABOVE_CASINGS)
PUT(CASING[1],CASINGF+ZHAT)
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:43 18 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
QREAD PROC2.PNT
QREAD PROC4.PNT
QREAD FLSHDT.DAT[1,MSM]
SAVECOREIMAGE MSM4
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:46 18 Nov 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
EXIT
{exiting at 13:47 18 Nov 1980
$FPMAX=6
$INTMAX=7
$PCDMAX=219}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:51 18 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
QREAD PROC2.PNT
QREAD PROC4.PNT
QREAD FLSHDT.DAT[1,MSM]
SAVECOREIMAGE MSM4
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:57 18 Nov 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
GET(BRET,.6)
CENTER_FLAG←0
{ continued writing again at 14:04 18 Nov 1980}
GET(REF,.6)
CENTER_FLAG←0
{ continued writing again at 14:06 18 Nov 1980}
GET(REF,.6)
CENTER_FLAG←0
CROSS_INSERT(REFF,3.5,1.5,1)
CROSS_INSERT(REFF,3.5,1.5,1)
CROSS_INSERT(REFF,3.5,1.5,1)
CROSS_INSERT(REFF,3.5,2.5,1)
CROSS_INSERT(REFF,3.5,1.5,2)
GUIDED_INSERT(REFF,3.5,1.5,2)
GUIDED_INSERT(REFF,3.5,1.5,1)
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 11:51 20 Nov 1980 for ALIAS PPN = HE
LOGIN PPN = MSM USERNAME = Shahid}
SAVECOREIMAGE P2
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 12:03 20 Nov 1980 for ALIAS PPN = HE
LOGIN PPN = MSM USERNAME = Shahid}
SAVECOREIMAGE P2
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 12:05 20 Nov 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
CENTER BARM
NODISPLAY
OPEN BHAND TO 3.8
SCALAR I;
FOR I←1 STEP 1 UNTIL 10 DO BEGIN CENTER BARM; OPEN BHAND TO 3.8; END;
FOR I←1 STEP 1 UNTIL 10 DO BEGIN CENTER BARM; OPEN BHAND TO 3.8; END;
MOVE BARM TO BPARK
MOVE BARM TO BPARK
MOVE BARM TO BPARK WITH NULLING
MOVE BARM TO BPARK WITH NULLING
MOVE BARM TO BPARK WITH NULLING
MOVE BARM TO BPARK WITH NULLING
{ WRITTEN BY 5.N .$↑ [$X , *] AT 15:06 20 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
DAC(1,5)
NODISPLAY; SCALAR I
FOR I←1 STEP 1 UNTIL 4 DO DAC(I,I)
FOR I←1 STEP 1 UNTIL 4 DO DAC(I,I)
FOR I←1 STEP 1 UNTIL 4 DO DAC(I,2*I)
FOR I←1 STEP 1 UNTIL 4 DO DAC(I,2*I)
FOR I←1 STEP 1 UNTIL 1000 DO DAC(1,5)
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 21:51 20 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
SETSTATUS(PPCODE);
I←ADC(1);
I←ADC(3);
DAC(3,5)
DAC(3,5)
DAC(3,7)
EXIT
{exiting at 21:53 20 Nov 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=23}
{ WRITTEN BY PONTY0.DMP[TMP,MSM] AT 13:40 21 Nov 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
A←0;B←0,C←0,D←3;
A←0;B←0;C←0;D←3;
SHOW A,B,C,D
DAC(1,-4)
A←ADC(0);
A←ADC(0);
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 15:02 21 Nov 1980 for ALIAS PPN = HE
LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
SETSTATUS(PPCODE)
W←ADC(2);
MOVE BARM TO BPARK
EXIT
{exiting at 15:28 21 Nov 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=23}
{ continued writing again at 14:26 23 Nov 1980}
WRITE INTO FOO.TST;
CENTER BARM;
CENTER BARM;
CLOSE
FOO.TST;
CLOSE BHAND;
{ WRITTEN BY PONTY0.DMP[PNT, HE] AT 15:55 24 Nov 1980 for ALIAS PPN = HE
LOGIN PPN = MSM USERNAME = Shahid}
SAVECOREIMAGE P0
{ continued writing again at 22:24 26 Nov 1980}
CUBE ← BARM
WRITE INTO DATA.PNT
EXIT
{exiting at 22:27 26 Nov 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ continued writing again at 22:47 26 Nov 1980}
FILE.ADS
← FILE.ADS
← FILE.ADS
FILE FOR TTY OUTPUT
=FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT = FILE.ASD
FILE FOR TTY OUTPUT←FILE.ASD
{ continued writing again at 17:32 28 Nov 1980}
QREAD FOO.PNT[1,MSM]
A1←BARM
A2←BARM
MOVE BARM TO BPARK VIA A1,A2,BPARK,A1,A2 WITH DURATION=10
MOVE BARM TO BPARK VIA A1,A2,BPARK,A1,A2 WITH DURATION=8
MOVE BARM TO BPARK VIA A1,A2,BPARK,A1,A2 WITH DURATION=7
SCALAR I;
FOR I←1 STEP 1 UNTIL 10 DO MOVE BARM TO BPARK VIA A1,A2,BPARK,A1,A2 WITH DURATION=7
MOVE BARM TO STEM_PICKUP - 3*XHAT
MOVE BARM TO STEM_PICKUP
NODISPLAY; MOVE BARM TO STEM_PICKUP WITH DURATION=2
MOVE BARM TO STEM_PICKUP WITH DURATION=2 WITH NULLING
CENTER BARM
{ continued writing again at 22:28 28 Nov 1980}
QREAD FOO.PNT
MOVE BARM TO STEM_FINAL WITH DURATION= 4
SF←BARM;
MOVE BARM TO STEM_TOUCH WITH DURATION = 4;
MOVE BARM TO STEM_TOUCH WITH DURATION = 2;
MOVE BARM TO STEM_TOUCH WITH DURATION = 2;
{ continued writing again at 17:30 29 Nov 1980}
QREAD FOO2.PNT[1,JKS]
MOVE BARM TO PICK2 VIA PICK2#(-2*ZHAT) WITH DURATION =4 WITH NULLING
MOVE BARM TO PICK2 VIA PICK2#(-2*ZHAT) WITH DURATION =4 WITH NULLING
MOVE BARM TO PICK2+.2*XHAT VIA PICK2#(-2*ZHAT) WITH DURATION =4 WITH NULLING
MOVE BARM TO (PICK2+.2*XHAT)#.1*XHAT VIA PICK2#(-2*ZHAT) WITH DURATION =4 WITH NULLING
MOVE BARM TO (PICK2+.2*XHAT)#.2*XHAT VIA PICK2#(-2*ZHAT) WITH DURATION =4 WITH NULLING
MOVE BARM TO ((PICK2+.2*XHAT)#.2*XHAT)#(-.2*ZHAT) VIA PICK2#(-2*ZHAT) WITH DURATION =4 WITH NULLING
MOVE BARM TO ((PICK2+.2*XHAT)#.2*XHAT)#(-.2*ZHAT) VIA PICK2#(-2*ZHAT) WITH DURATION =4 WITH NULLING
PICK2←((PICK2+.2*XHAT)#.2*XHAT)#(-.2*ZHAT)
MOVE BARM TO PICK2 VAI PICK2#(-2*ZHAT) WITH DURATION=4
MOVE BARM TO PICK2 VIA PICK2#(-2*ZHAT) WITH DURATION=4
WRITE PICK2 INTO FOO2.PNT[1,JKS]
QREAD FOO2.PNT[1,MSM]
QREAD FOO2.PNT[1,JKS]
MOVE BARM TO STEM_TOUCH
MOVE BARM TO STEM_TOUCH WITH DURATION=4
MOVE BARM TO STEM_TOUCH#(-.2*XHAT) WITH DURATION=4
MOVE BARM TO STEM_TOUCH#(-.2*XHAT) WITH DURATION=4
STEM_TOUCH←STEM_TOUCH#(-.2*XHAT)
WRITE STEM_TOUCH INTO FOO2.PNT[1,JKS]
EXIT
{exiting at 17:46 29 Nov 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=60}
{ continued writing again at 14:28 30 Nov 1980}
A←BARM
NODISPLAY;B←BARM
C←BARM
D←BARM
D←BARM
E←BARM
MOVE BARM TO F VIA A,B,C,D,E WITH DURATION = 10
MOVE BARM TO E VIA A,B,C,D WITH DURATION = 10
SCALAR I;
FOR I←1 STEP 1 UNTIL 10 MOVE BARM TO E VIA A,B,C,D WITH DURATION = 8;
FOR I←1 STEP 1 UNTIL 10 DO MOVE BARM TO E VIA A,B,C,D WITH DURATION = 8;
EXIT
{exiting at 14:35 30 Nov 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=55}
{ continued writing again at 12:21 5 Dec 1980}
B1←BARM
Q
K
QUIT
EXIT
{exiting at 12:38 5 Dec 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=23}
{ continued writing again at 13:34 5 Dec 1980}
SD
SD
RO[
PJ[
TOP←BARM
MOVE BARM TO TOP
MOVE BARM TO BPARK
MOVE BARM TO TOP VIA TOP+3*ZHAT
CENTER BARM
MOVE BARM TO BPARK VIA TOP+3*ZHAT
MOVE BARM TO TOP VIA TOP+3*ZHAT
OPEN BHAND TO 3.0
MOVE BARM TO BPARK VIA TOP+3*ZHAT
EXIT
{exiting at 13:53 5 Dec 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=31}
{ continued writing again at 13:55 5 Dec 1980}
QREAD TRY.MSM
QREAD TRY.MSM
QREAD TRY.MSM
;
{ continued writing again at 14:09 5 Dec 1980}
QREAD TRY.MSM
QREAD TRY.MSM
SHOW OPEN_HAND
SHOW TRANSFER
QREAD TRY.MSM
MOVE BARM TO BARM+3*ZHAT
MOVE BARM TO BPARK
QREAD TRY.MSM
MOVE BARM TO BPARK
E TRY.MSM
ET TRY.MSM
ETT TRY.MSM:
HELP
H
H
H
H
H
RES
RES
RES
RES
RES
HELP RES
DONE RES
QREAD TRY.MSM
{ continued writing again at 14:52 5 Dec 1980}
QREAD TRY.MSM
JX
{ continued writing again at 15:08 5 Dec 1980}
FRAME K
QREAD TRY.MSM
{ WRITTEN BY 5.N .$↑ [$X , *] AT 15:17 5 Dec 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD PROC2.PNT
QREAD FOO.MSM
EXIT
{exiting at 15:18 5 Dec 1980
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{ continued writing again at 16:33 5 Dec 1980}
COVER←BARM
INT1←BARM
PARK BARM
MOVE BARM TO BPARK
MOVE BARM TO BPARK
MOVE BARM TO INT1
MOVE BAARM TO BPARK
MOVE BARM TO BPARK
MOVE BARM TO INT1 WITH DURATION = 5.*SECONDS
MOVE BARM TO COVER WITH DURATION =5*SEC
CENTER BHAND
CENTER BARM
MOVE BARM TO ⊗+(ZHAT*3*INCHES) WITH DURATION=5*SECONDS
INT3←BARM
JIG1←BARM
INT4←JIG1+(ZHAT*
;
;
JIG1←BARM
INT4←JIG1+(ZHAT*7*INCHES)
JIG2←,
JIG2←JIG1*ROT(ZHAT*-30*DEG)
JIG2←JIG1*ROT(ZHAT,-30*DEG)
{ continued writing again at 17:20 5 Dec 1980}
MOVE BARM TO BPARK WITH DURATION=3*SEC
O_COVER_VIA←BARM
O_COVER_GRASP←BARM
{BHAND = 2.25*INCHES TO PICK UP O_COVER}
JIG1←BARM
JIG2←BARM
WRITE ALL TO O_COVER.DOC
WRITE ALL INTO O_COVER.DOC
MOVE BARM TO BPARK WITH DURATION=3*SEC;
MOVE BARM TO O_COVER_VIA WITH DURATION=3*SEC
MOVE BARM TO O_COVER_GRASP WITH DURATION=3*SEC
CENTER BARM
OPEN BHAND TO 2.0*IN
OPEN BHAND TO 2.0*IN
OPEN BHAND TO 2.0
MOVE BARM TO ⊗+.5*ZHAT*IN
MOVE BARM TO ⊗+.5*ZHAT
MOVE BARM TO ⊗-.25*ZHAT
MOVE BARM TO ⊗-.07*ZHAT
CENTER BARM
MOVE BARM TO ⊗+3*ZHAT
MOVE BARM TO BPARK WITH DURATION =3*SEC
MOVE BARM TO O_COVER_GRASP VIA O_COVER_VIA WITH DURATION =8*SEC
CENTER BARM
MOVE BARM TO ⊗+3*ZHAT WITH DURATION =3*SEC
MOVE BARM TO JIG1+5*ZHAT WITH DURATION = 8*SEC
MOVE BARM TO JIG1 WITH DURATION = 5*SEC
MOVE BARM TO JIG2-.5*ZHAT WITH DURATION=3*SEC
MOVE BARM TO JIG1+3*ZHAT WIT
MOVE BARM TO JIG1+3*ZHAT WITH DURATION 3*SEC
MOVE BARM TO JIG1+3*ZHAT WITH DURATION 3*SEC
MOVE BARM TO JIG1+3*ZHAT WITH DURATION= 3*SEC
MOVE BARM TO BPARK WITH DURATION =3*SEC
{ continued writing again at 18:21 5 Dec 1980}
READ O_COVER.DOC
MOVE BARM TO BPARK WITH DURATION =3*SEC
MOVE BARM TO O_COVER_GRASP+.2*ZHAT VIA O_COVER_VIA WITH DURATION=5*SEC
CENTER BARM
MOVE BARM TO JIG1+3*ZHAT VIA ⊗+3*ZHAT VIA ⊗+3*YHAT WITH DURATION =8*SEC
JIG1_VIA←BARM
MOVE BARM TO BPARK WITH DURATION =3*SEC
WRITE ALL INTO O_COVER.DOC
OPEN BHAND TO 2.25
MOVE BARM TO O_COVER_GRASP +.2*ZHAT VIA O_COVER_VIA WITH DURATION =5*SEC
CENTER BARM
MOVE BARM TO JIG1+3*ZHAT VIA ⊗+6*ZHAT VIA JIG1_VIA WITH DURATION=8*SEC
MOVE BARM TO JIG1 WITH DURATION=3*SEC
MOVE BARM TO JIG2 WITH DURATION=3*SEC
OPEN BHAND TO 2.25
MOVE BARM TO BPARK VIA ⊗+4*ZHAT
MOVE BARM TO BPARK WITH DURATION=3*SEC
OPEN BHAND TO 2.25
MOVE BARM TO O_COVER_GRASP+.2*ZHAT VIA O_COVER_VIA WITH DURATION =5*SEC
CENTER BARM
MOVE BARM TO JIG1 VIA ⊗+6*ZHAT VIA JIG1_VIA VIA JIG1+3*ZHAT WITH DURATION =8*SEC
MOVE BARM TO JIG2 WITH DURATION =1*SEC
OPEN BHAND TO 2.5
MOVE BARM TO BPARK VIA ⊗+3*ZHAT WITH DURATION =3*SEC
MOVE BARM TO O_COVER_GRASP+.2*ZHAT VIA O_COVER_VIA WITH DURATION =5*SEC
CENTER BARM
MOVE BARM TO JIG1 VIA ⊗+3*ZHAT VIA JIG1_VIA VIA JIG1+3*ZHAT WITH DURATION=8*SEC
MOVE BARM TO JIG2
WRITE ALL INTO O_COVER.DOC
OPEN BHAND TO 2.25
MOVE BARM TO BPARK VIA ⊗+3*ZHAT WITH DURATION=3*SEC
ROTOR_GRASP←BARM
MOVE BARM TO BPARK WITH DURATION =3*SEC
OPEN BHAND TO 3.3
MOVE BARM TO ROTOR_GRASP VIA ROTOR_GRASP+3*ZHAT WITH DURATION =8*SEC
MOVE BARM TO ⊗+.2*ZHAT
CENTER BARM
MOVE BARM TO ⊗+5*ZHAT WITH DURATION =8*SEC
OVER_COVERJBARM
OVER_COVER←BARM
TOUCH_O_COVER←BARM
MOVE BARM TO BPARK WITH DURATION=2*SEC
OPEN BHAND TO 3.4
MOVE BARM TO ROTOR_GRASP+.1*ZHAT VIA ROTOR_GRASP+3*ZHAT WITH DURATION =5*SEC
CENTER BARM
MOVE BARM TO ⊗+5*ZHAT WITH DURATION=5*SEC
COVER_HOLE←BARM
MOVE BARM TO BPARK WITH DURATION=3*SEC
WRITE ALL TO ROTOR.DOC
WRITE ALL INTO ROTOR.DOC
MOVE BARM TO ROTOR_GRASP+.1*ZHAT VIA ROTOR_GRASP+3*ZHAT WITH DURATION=5*SEC
OPEN BHAND TO 3.4
MOVE BARM TO BPARK WITH DURATION=3*SEC
MOVE BARM TO ROTOR_GRASP+.1*ZHAT VIA ROTOR_GRASP+3*ZHAT WITH DURATION=4*SEC
CENTER BARM
MOVE BARM TO ⊗+5*ZHAT WITH DURATION=3*SEC
MOVE BARM TO COVER_HOLE+.5*ZHAT VIA COVER_HOLE+5*ZHAT WITH DURATION=5*SEC
MOVE BARM TO COVER_HOLE+.1*ZHAT WITH DURATION=5*SEC
MOVE BARM TO COVER_HOLE-.2*ZHAT WITH DURATION =5*SEC
OPEN BHAND TO 3.4
WRITE ALL TO ROTOR.DOC
WRITE ALL INTO ROTOR.DOC
FIELD_GRASP←BARM
MOVE BHAND TO BPARK WITH DURATION=3*SEC
MOVE BARM TO BPARK WITH DURATION=3*SEC
OPEN BHAND TO 3.9
CLOSE BHAND TO 2.9
CLOSE BHAND TO 2.9
RETRY
RETRY$G
CLOSE BHAND TO 1.9
RETRY
OPEN BHAND TO 3.7
CLOSE BHAND TO .5
OPEN BHAND TO 2.5
OPEN BHAND TO 3.8
OPEN BHAND TO 3.7
CLOSE BHAND TO .3
OPEN BHAND TO 3.65
CLOSE BHAND TO .5
CLOSE BHAND TO .5
OPEN BHAND TO 3.7
OPEN BHAND TO 3.65
CLOSE BHAND TO 1.
OPEN BHAND TO 3.65
CLOSE BHAND TO 1
OPEN BHAND TO 3.67
CLOSE BHAND TO 1.
OPEN BHAND TO 3.69
CLOSE BHAND TO 1
OPEN BHAND TO 3.7
CLOSE BHAND TO 1
OPEN BHAND TO 3.75
CLOSE BHAND TO 1
OPEN BHAND TO 3.7
MOVE BARM TO FIELD_GRASP+3*ZHAT WITH DURATION=8*SEC
MOVE BARM TO FIELD_GRASP VIA FIELD_GRASP+3*ZHAT WITH DURATION=8*SEC
MOVE BARM TO BPARK WITH DURATION=3*SEC
OPEN BHAND TO 3.7
MOVE BARM TO FIELD_GRASP VIA FIELD_GRASP+3*ZHAT WITH DURATION=8*SEC
MOVE BARM TO PBARK VIA ⊗+3*ZHAT WITH DURATION=3*SEC
MOVE BARM TO PBARK VIA ⊗+3*ZHAT WITH DURATION=3*SEC
MOVE BARM TO BPARK VIA ⊗+3*ZHAT WITH DURATION=3*SEC
MOVE BARM TO FIELD_GRASP-.1*ZHAT VIA FIELD_GRASP+3*ZHAT WITH DURATION=8*SEC
MOVE BARM TO FIELD_GRASP-.2*ZHAT VIA FIELD_GRASP+3*ZHAT WITH DURATION=8*SEC
CENTER BARM
MOVE BARM TO ⊗+3*ZHAT WITH DURATION=5*SEC
FIELD_INSERT←BARM
MOVE BARM TO FIELD_INSERT+4*ZHAT WITH DURATION=4*SEC
MOVE BARM TO FIELD_INSERT+1*ZHAT
MOVE BARM TO FIELD_INSERT WITH WOBBLE=3*DEGREES WITH DURATION=5*SEC
MOVE BARM TO BPARK WITH DURATION=3*SEC
MOVE BARM TO BPARK WITH DURATION=3*SEC
CLOSE BHAND TO 1
OPEN BHAND TO 3.7
OPEN BHAND TO 3.7
MOVE BARM TO FIELD_GRASP-.2*ZHAT VIA FIELD_GRASP+3*ZHAT WITH DURATION=8*SEC
CENTER BARM
MOVE BARM TO ⊗+3*ZHAT WITH DURATION=3*SEC
MOVE BARM TO FIELD_INSERT +3*ZHAT WITH DURATION=5*SEC
MOVE BARM TO FIELD_INSERT +1*ZHAT WITH DURATION=3*SEC
MOVE BARM TO FIELD_INSERT WITH WOBBLE=.3*DEG WITH DURATION=5*SEC
MOVE BARM TO ⊗+3*ZHAT WITH DURATION=3*SEC
MOVE BARM TO FIELD_INSERT+3*ZHAT WITH DURATION=1*SEC
MOVE BARM TO FIELD_INSERT+1*ZHAT WITH DURATION=3*SEC
MOVE BARM TO FIELD_INSERT91*ZHAT WITH WOBBLE=.6*DEG WITH DURATION=3*SEC
MOVE BARM TO FIELD_INSERT-1*ZHAT WITH WOBBLE=.6*DEG WITH DURATION=3*SEC
WRITE ALL INTO JDV.DOC
MOVE BARM TO BPARK
EXIT
{exiting at 20:19 5 Dec 1980
$FPMAX=6
$INTMAX=5
$PCDMAX=57}
{ continued writing again at 20:31 5 Dec 1980}
FRAME K
QREAD TRY.MSM
{ continued writing again at 20:34 5 Dec 1980}
FRAME K
QREAD TRY.MSM
{ continued writing again at 20:36 5 Dec 1980}
FRAME K
QREAD TRY.MSM
{ continued writing again at 20:39 5 Dec 1980}
FRAME K
QREAD TRY.MSM
{ continued writing again at 20:41 5 Dec 1980}
MOVE BARM TO BPARK
MOVE BARM TO REF
{ continued writing again at 20:45 5 Dec 1980}
QREAD TRY.MSM
FRAME K
{ continued writing again at 20:47 5 Dec 1980}
QREAD TRY.MSM
WHAT
{ continued writing again at 20:49 5 Dec 1980}
MOVE BARM TO BPARK
MOVE BARM TO BRET
MOVE BARM TO BPARK
QREAD
QREAD TRY
QREAD TRY.MSM
66
GO
{ continued writing again at 20:55 5 Dec 1980}
CLOSE BHAND
CLOSE BHAND
CLOSE BHAND
CLOSE BHAND TO 000
CLOSE BHAND TO 0.00
OPEN BHAND
OPEN BHAND TO 0.5
CLOSE BHAND TO 0.00
MOVE BHAND TO RRET
{ continued writing again at 10:07 6 Dec 1980}
READ JDV.DOC
OPEN BHAND TO 2.25
MOVE BARM TO O_COVER_GRASP+.2*ZHAT VIA O_COVER_VIA WITH DURATION=8*SEC
CENTER BARM
MOVE BARM TO JIG1 VIA ⊗+6*ZHAT VIA JIG1_VIA VIA JIG1+3*ZHAT WITH DURATION=8*SEC
MOVE BARM TO JIG2
OPEN BHAND TO 2.25
MOVE BARM TO ROTOR_GRASP+.1*ZHAT VIA ⊗+3*ZHAT VIA ROTOR_GRASP+3*ZHAT WITH DURATION=8*SEC
OPEN BHAND TO 3.0
MOVE BARM TO BPARK WITH DURATION H5*SEC
MOVE BARM TO BPARK WITH DURATION =5*SEC
MOVE BARM TO ROTOR_GRASP+.1*ZHAT DIRECTLY WITH DURATION=8*SEC
MOVE BARM TO ROTOR_GRASP+.1*ZHAT VIA ROTOR_GRASP+3*ZHAT WITH DURATION=5
CENTER BARM
MOVE BARM TO ⊗+5*ZHAT WITH DURATION=5*SEC
MOVE BARM TO COVER_HOLE+1*ZHAT VIA COVER_HOLE+3*ZHAT WITH DURATION=5*SEC
OPEN BHAND TO 3.7
MOVE BARM TO FIELD_GRASP VIA FIELD_GRASP +3*ZHAT WITH DURATION=8
MOVE BARM TO FIELD_GRASP-.2*ZHAT WITH DURATION=1
CENTER BARM
MOVE BARM TO ⊗+3*ZHAT WITH DURATION=5
MOVE BARM TO FIELD_INSERT+3*ZHAT WITH D=5
MOVE BARM TO FIELD_INSERT+3*ZHAT WITH DUR=5
MOVE BARM TO FIELD_INSERT+3*ZHAT WITH DURATION=5
MOVE BARM TO FIELD_GRASP+1*ZHAT WITH DURATION=4
MOVE BARM TO FIELD_INSERT+1*ZHAT VIA FIELD_INSERT+3*ZHAT WITH DURATION=8
MOVE BARM TO FIELD_INSERT-.5*ZHAT WITH WOBBLE=.5*DEG WITH DURATION=5
MOVE BARM TO FIELD_INSERT+3*ZHAT WITH DURATION=3
MOVE BARM TO FIELD_INSERT+.75*ZHAT WITH DURATION=4
MOVE BARM TO FIELD_INSERT-.4*ZHAT WITH WOBBLE=3*DEG WITH DURATION=5
FIELD_INSERT2←BARM
MOVE BARM TO FIELD_INSERT2 WITH DURATION=8*SEC
WRITE ALL INTO JDV.DOC
OPEN BHAND TO 3.7
MOVE BARM TO ⊗+3*ZHAT WITH DURATION=1
SLOW
DO SLOW
DOSLOW
OSLOW
DEFINE FIELD=⊂
OPEN BHAND TO 3.7
MOVE BARM TO BPARK WITH DURATION=3*SEC
MOVE BARM TO FIELD_GRASP-.2*ZHAT VIA FIELD_GRASP+3*ZHAT WITH DURATION=8
CENTER BARM
MOVE BARM TO ⊗+4*ZHAT WITH DURATION=5
MOVE BARM TO FIELD_INSERT+3*ZHAT WITH DURATION=4
MOVE BARM TO FIELD_INSERT+.75*ZHAT WITH DURATION=4
MOVE BARM TO FIELD_INSERT-.4*ZHAT WITH WOBBLE=2*DEG WITH DURATION=4
MOVE BARM TO FIELD_INSERT2 WITH DURATION=2
OPEN BHAND TO 3.7
MOVE BARM TO ⊗+3*ZHAT
⊃
FIELD
EDIT FIELD
EDIT FIELD
FIELD
PRINT FIELD
EDIT FIELD
EDIT FIELD
FIELD
EDIT FIELD
FIELD
FIELD
EDIT FIELD
FIELD
WRITE ALL INTO JDV.DOC
TO BPARK WITH DURATION=5
TO BPARK WITH DURATION=5
MOVE BARM TO BPARK WITH DURATION=5
EDIT O_COVER_GRASP
MOVE BARM TO O_COVER_GRASP VIA O_COVER_VIA WITH DURATION=5
CENTER BARM
MOVE BARM TO JIG1 VIA ⊗+5*ZHAT VIA JIG1_VIA VIA JIG1+3*ZHAT WITH DURATION=8
MOVE BARM TO JIG2 WITH DURATION=5
OPEN BHAND TO 2.3
MOVE BARM TO ⊗+3*Z WITH DURATION=5
MOVE BARM TO ⊗+3*ZHAT WITH DURATION=5
MOVE BARM TO O_COVER_GRASP VIA O_COVER_VIA WITH DURATION=8
O_GRASP1←
⊗
MOVE BARM TO O_GRASP1 VIA O_COVER_VIA WITH DURATION=8
CENTER BARM
MOVE BARM TO JIG1 VIA ⊗+3*ZHAT VIA JIG1_VIA VIA JIG1+3*ZHAT WITH DURATION=8
MOVE BARM TO JIG2 WITH DURATION=2
JIG2←⊗
EDIT JIG2
MOVE BARM TO JIG1_VIA WITH DURATION=4
JIG2_VIA←⊗
MOVE BARM TO O_GRASP1 VIA O_COVER_VIA WITH DURATION=5
CENTER BARM
MOVE BARM TO JIG1 VIA ⊗+3*ZHAT VIA JIG2_VIA VIA JIG1+3*ZHAT WITH DURATION=8
MOVE BARM TO JIG2 WITH DURATION=3
MOVE BARM TO O_GRASP+3*ZHAT WITH DURATION=5
MOVE BARM TO O_GRASP1+3*ZHAT WITH DURATION=5
JIG2_VIA←⊗
MOVE BARM TO O_GRASP1+3*ZHAT WITH DURATION=5
DEFINE O_COVER=⊂
MOVE BARM TO BPARK WITH DURATION=5
OPEN BHAND TO 2.3
MOVE BARM TO O_GRASP1 VIA O_COVER_VIA WITH DURATION=5;
CENTER BARM;
MOVE BARM TO JIG2 VIA ⊗+3*ZHAT VIA JIG2_VIA VIA JIG1+3*ZHAT
VIA JIG1 WITH DURATION=8;
OPEN BHAND TO 2.25
MOVE BARM TO ⊗+3*ZHAT;
⊃
EDIT O_COVER
O_COVER
WRITE ALL INTO JDV.DOC
EDIT O_COVER
R1←⊗
R2←⊗
R3←⊗
MOVE BARM TO R3 VIA R1 VIA R2 WITH DURATION=5
R1←⊗
R2←⊗
R3←⊗
MOVE BARM TO R3 VIA R3 VIA R1 VIA R2 WITH DURATION=8
MOVE BARM TO R3 VIA R2 VIA R1 WITH DURATION=8
MOVE BARM TO R3-.5*ZHAT WITH DURATION=5
MOVE BARM TO R3-1*ZHAT WITH DURATION=5 WITH WOBBLE=.1*DEG
OPEN HAND TO 2.5
OPEN BHAND TO 2.5
OPEN BHAND TO 3
MOVE BARM TO BPARK WITH DURATION=4
MOVE BARM TO ROTOR_GRASP VIA ROTOR_GRASP+3*ZHAT WITH DURATION=5
R0←⊗
CENTER BARM
MOVE BARM TO R3 VIA ⊗+3*ZHAT VIA R3+3*ZHAT WITH DURATION=8
MOVE BARM TO R3 VIA R2 VIA R1 WITH DURATION=5
R2←⊗
R1←⊗
R3←⊗
MOVE BARM TO R3 VIA R1 VIA R2 WITH DURATION=5
R1←⊗
R2←⊗
MOVE BARM TO R3 VIA R1 VIA R2 WITH DURATION=5
R1←⊗
MOVE BARM TO R3 VIA R1 WITH DURATION=5
R2←⊗
MOVE BARM TO R3 VIA R2 WITH DURATION=5
MOVE BARM TO R3 VIA R2 VIA R1 WITH DURATION=5
MOVE BARM TO ⊗-.3*ZHAT WITH DURATION=5
MOVE BARM TO ⊗-.1*ZHAT VIA ⊗+.3*ZHAT WITH DURATION=6
DEFINE ROTOR=⊂
OPEN BHAND TO 3;
MOVE BARM TO BPARK WITH DURATION=5;
MOVE BARM TO R0 VIA R0+3*ZHAT WITH DURATION=3;
CENTER BARM;
MOVE BARM TO R3 VIA ⊗+3*ZHAT VIA R0+3*ZHAT WITH DURATION=5;
MOVE BARM TO R3 VIA R2 VIA R1 WITH DURATION=5;
MOVE BARM TO ⊗-.4*ZHAT WITH DURATION=3;
MOVE BARM TO ⊗-.5*ZHAT WITH WOBBLE=.2 WITH DURATION=4;
OPEN BHAND TO 3.;
MOVE BARM TO ⊗+4*ZHAT;
⊃
ROTOR
EDIT ROTOR
ROTOR
EDIT ROTOR
ROTOR
ROTOR
EDIT ROTOR
EDIT ROTOR
ROTOR
ROTOR
EDIT ROTOR
ROTOR
EDIT ROTOR
EDIT ROTOR
EDIT ROTOR
ROTOR
EDIT ROTOR
ROTOR
EDIT ROTOR
ROTOR
EDIT ROTOR
ROTOR
EDIT ROTOR
ROTOR
WRITE ALL INTO JDV.DOC
EDIT ROTOR
DEFINE ASS
O_COVER;
DEFINE ASS
⊃
⊃
DEFINE ASS=⊂
O_COVER;
ROTOR;
FIELD;
⊃
ASS
ASS
EDIT ROTOR
EDIT ROTOR
EDIT ROTOR
⊃
EDIT ROTOR
EDIT ROTOR
DEFINE ROTOR1=⊂
OPEN BHAND TO 3.0;
MOVE BARM TO BPARK WITH DURATION=3;
MOVE BARM TO R0 VIA R0+3*ZHAT WITH DURATION=3;
CENTER BARM;
MOVE BARM TO R3 VIA ⊗+2.6*ZHAT VIA R3 +3*ZHAT WITH DURATION=5;
MOVE BARM TO R3 VIA R2 VIA R1 WITH DURATION=5;
MOVE BARM TO ROTIN
⊃
ROTOR
ROTIN←⊗
ROTIN←BARM
OPEN BAND
OPEN BHAND TO 3
{ continued writing again at 14:29 6 Dec 1980}
READ JDV.DOC
MOVE BARM TO BPARK
CENTER BARM
DEFINE STIFF=⊂
MOVE BARM TO ST1 WITH DURATION =5
WITH STIFFNESS=(10,10,10,20,20,0)
{ continued writing again at 15:10 6 Dec 1980}
REDISPLAY
DEFINE STIFF=⊂
MOVE BARM TO ST1 WITH DURATION=10
WITH STIFFNESS
⊃
{ continued writing again at 15:23 6 Dec 1980}
MOVEBARM TO BPARK WITH DURATIONL
MOVE BARM TO BPARK WITH DURATION=5
STIFF1←⊗
DEFINE STIFF=⊂
MOVE BARM TO STIFF1 WITH DURATION=10
WITH STIFFNESS=(10,10,10,20,20,0) ABOUT FRAME(NILROT,-3*ZHAT);
⊃
STIFF
STIFF
STIFF
EDIT STIFF
MOVE BARM TO STIFF1 WITH DURATION=2
STIFF
STIFF
EDIT STIFF
MOVE BARM TO STIFF1
STIFF
STIFF
EDIT STIFF
STIFF
EDIT STIFF
STIFF
EDIT STIFF
STIFF
EDIT STIFF
QREAD
QREAD JDV.DOC
EDIT FIELD
EDIT ROTOR
EDIT O_COVER
WRITE ALL INTO POINTY.JDV
COPY ROTOR INTO ROTOR2
EDIT ROTOR2
DEFINE ROTOR2 = ⊂
OPEN BHAND TO 3;
MOVE BARM TO BPARK WITH DURATION=3;
MOVE BARM TO R0 VIA R0+3*ZHAT WITH DURATION=3;
CENTER BARM;
MOVE BARM TO R3 VIA ⊗+2.6*ZHAT VIA R3+3*ZHAT WITH DURATION=5;
MOVE BARM TO R3 VIA R2 VIA R1 WITH DURATION=5;
MOVE BARM TO ⊗-.8*ZHAT
ON |FORCE(ZHAT)|≥5 DO STOP BARM
WITH DURATION=2;
MOVE BARM TO ⊗-1.0*ZHAT
WITH FORCE_WRIST NOT ZEROED
WITH FORCE_FRAME = STATION IN WORLD
WITH STIFFNESS=(20,20,0,30,30,300)
ABOUT FRAME(NILROT,-3.7*ZHAT)
WITH FORCE=10*ZHAT
WITH DURATION=20
WITH WOBBLE=.2*DEG;
OPEN BHAND TO 3;
MOVE BARM TO ⊗+3*ZHAT;
⊃;
ROTOR2
EDIT ROTOR2
ROTOR2
ROTOR2
EDIT ROTOR2
ROTOR2
EDIT ROTOR2
ROTOR2
WRITE ALL INTO POINTY2.JDV
{ WRITTEN BY 5.N .$↑ [$X , *] AT 12:11 7 Dec 1980 for ALIAS PPN = MSM
LOGIN PPN = MSM USERNAME = Shahid}
QREAD FLSHDT.DAT[1,MSM]
QREAD PROC2.PNT[1,MSM]
QREAD PROC2.PNT[TMP,MSM]
RESUME_MESSAGE ("
MSM - THIS PROGRAM INCLUDES FLASHLIGHT ASSEMBLY LOCATION DATA
");
SAVECOREIMAGE M0
{ WRITTEN BY 5.N .$↑ [$X , *] AT 12:15 7 Dec 1980 for ALIAS PPN =
LOGIN PPN = USERNAME = }
QREAD FOO.MSM
{PONTY0.DMP[PNT, HE] :14:22 6 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 14:23 6 Jan 1981}
MOVE BARM TO BPARK
MOVE BARM TO BPARK
W←4
EXIT
{exiting at 14:28 6 Jan 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}